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Vorwort 


Das vorliegende Wegweiser Buch führt den Leser zum erfolgreichen Einsatz von GFA-Basic 
auf Atari ST und anderen Computern. 


Abschnitt 1: Das Wegweiser-Buch vermittelt aktuelles Grundlagenwissen zur Datenver¬ 
arbeitung bzw. Informatik: 

— Was ist Hardware, Software und Firmware? 

— Was sind Großcomputer (Mainframes) und Personalcomputer (PCs)? 

— Was sind Datenstrukturen und Programmstrukturen? 

— Was sind Betriebssysteme und Anwenderprogramme? 

— Was heißt „fertige Individual- oder Branchensoftware einsetzen“? 

— Was sind Software-Werkzeuge bzw. Tools? 

— Was beinhaltet das eigene Programmieren? 

Nach der Lektüre dieses Abschnitts sind Sie in der Lage, das Programmentwicklungs¬ 
system GFA-Basic in den Gesamtrahmen der „Datenverarbeitung/Informatik“ einzu¬ 
ordnen. 


Abschnitt 2: Das Wegweiser-Buch gibt eine erste Bedienungsanleitung und liefert die 
komplette Sprachreferenz zu GFA-Basic 3.0: 

— Wie bedient man GFA-Basic mit dem eingebauten Editor? 

— Wie geht man um mit Maus, Benutzeroberfläche GEM-Desktop, Pictogrammen, 
Rolladenmenüs und Fenstern? 

— Wie erstellt man das erste Programm in der Programmiersprache GFA-Basic? 

— Welche Anweisungen ohne Dateizugriff gibt es? Alle 193 Anweisungen von GFA- 
Basic 3.0 werden erklärt. 

— Welche Funktionen ohne Dateizugriff werden bereitgestellt? Alle 143 Funktionen von 
GFA-Basic 3.0 werden beschrieben. 

— Welche 51 Anweisungen und Funktionen zum Dateizugriff bietet GFA-Basic dem 
Programmierer? 

Nach der Lektüre dieses Abschnitts können Sie Ihren PC (Atari ST oder andere Computer) 
unter GFA-Basic bedienen, Programme laufen lassen und einfache GFA-Basic-Programme 
selbst erstellen und speichern. Sie verfügen über ein anschauliches Nachschlagewerk zu 
den umfangreichen Sprachmitteln von GFA-Basic 3.0. 
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Abschnitt 3: Das Wegweiser-Buch enthält einen in sich abgeschlossenen Programmierkurs 

zu GFA-Basic mit den folgenden grundlegenden Anwendungen: 

— Programme mit den wichtigen Ablaufstrukturen (Folge-, Auswahl, Wiederholungs- und 
Unterprogrammstrukturen). 

— Strukturiertes Programmieren (Verwendung von Labels, keine Zeilennummern, pascal¬ 
ähnliches Arbeiten mit GFA-Basic). 

— Verarbeitung von Strings (Text), Arrays (Tabellen) und Ein-/Ausgabe. 

— Verfahren zum Suchen, Sortieren, Mischen und Gruppieren von Daten. 

— Dateiverarbeitung sequentiell, index-sequentiell, im Direktzugriff und verkettet 
(Datenbank). 

— Gekettete List und Binärer Baum mit Anwendung der Rekursion. 

— Unterbrechungsverarbeitung (Event Trapping): Fehlerbehandlung, benutzer- und 
zeitgesteuerte Unterbrechung. 

— Grafikverarbeitung: Screens, Modi, Farben, Zeichenbefehle, Animation. 

— Tonerzeugung: Musik mit drei Stimmen, Simulation eines Pianos. 

— Maschinennahes Programmieren: Variablenorganisation, Zeiger, Bit-Operationen, 
Speicherkopie, schnellere Betriebssystemaufrufe). 

Nach der Lektüre dieses Abschnitts können Sie die Sprachmöglichkeiten von GFA-Basic 

als universeller und strukturierender Sprache zur Lösung Ihrer Probleme nutzen. 


Das Wegweiser-Buch soll die System-Handbücher keineswegs ersetzen, sondern ergänzen: 

— In den Handbüchern werden die Programmiersprache GFA-Basic, der eingebaute 
Editor, die Oberfläche, das Betriebssystem, die Gerätebedienung und die technischen 
Eigenschaften (Hardware) beschrieben. 

- Das Wegweiser-Buch hingegen beschreibt die Grundlagen der Datenverarbeitung bzw. 
Informatik, um sie an zahlreichen Anwendungsmöglichkeiten in GFA-Basic zu erklären 
und zu veranschaulichen. 


Das Wegweiser-Buch ist für Zwecke der Schulung, Ausbildung und Weiterbildung kon¬ 
zipiert: 

— Zu allen Programmbeispielen werden das Basic-Listing und die Ausführung wieder¬ 
gegeben und ausführlich kommentiert. 

— Das Buch orientiert sich an der bewährten Gliederungsfolge der Informatik: Die grund¬ 
legende Programmstrukturen (Folge, Auswahl, Wiederholung und Unterprogramm) 
werden zunächst auf einfache Datentypen (Zahl, Zeichen, String) angewendet, um sie 
dann zur Verarbeitung von Datenstrukturen (Array, Datei), Grafik und Musik zu 
nutzen. 

Leitprinzip ist die strukturierte Programmierung; dieses Prinzip wird von GFA-Basic 
in hervorragender Weise unterstützt. 

— Theorie in Abschnitt 1: Die Grundlagen der Informatik werden System-und sprachen¬ 
unabhängig dargestellt. 
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— Praxis in Abschnitt 2 und 3: Das Buch bietet einen in sich abgeschlossenen Kurs zum 
Entwickeln und Testen elementarer Algorithmen in der Programmiersprache GFA- 
Basic. 

— Vergleichsmöglichkeiten: Zahlreiche Abläufe des GFA-Basic Wegweisers finden sich 
auch in verschiedenen anderen Wegweiser-Büchern. Damit eröffnet sich ein interessanter 
und lehrreicher Vergleich auf der Ebene von Betriebssystem wie Programmiersprache. 


Vorgehensweise: Die Abschnitte 2 und 3 des Wegweiser-Buches bauen aufeinander auf 
und sollten in dieser Abfolge gelesen werden. Abschnitt 1 hingegen kann parallel dazu 
bearbeitet werden. 



Für eüige und schnelle GFA-Basic-Anwender: Das Wegweiser-Buch läßt sich auch als 
Nachschlagewerk benutzen. Aus diesem Grunde wurden das Inhalts-, Programm-, Sachwort- 
und Befehlsverzeichnis (Anweisungen und Funktionen) detaüliert aufgegliedert. 

Heidelberg und Karlsruhe, im August 1988 Ekkehard Kaier , Marc Atkin, Peter Riswick 
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1 Computer allgemein 


1.1 Computer = Hardware + Software + Firmware 


1.1.1 Überblick 

Jeder Computer besteht aus Hardware (harter Ware), aus Software (wei¬ 
cher Ware) und aus Firmware (fester Ware). Dies gilt für Mikro- und 
Personalcomputer ebenso wie für Großcomputer. 

Die Hardware umfaßt alles das, was man anfassen kann: Geräte einerseits 
und Datenträger andererseits. Das wichtigste Gerät ist die Zentraleinheit 
bzw. CPU (für Central Processing Unit), mit der periphere Einheiten als 
Randeinheiten verbunden sind; so z.B. eine Tastatur zur Eingabe der Da¬ 
ten von Hand, ein Drucker zur Ausgabe der Resultate schwarz auf weiß 
und eine Disketteneinheit zur langfristigen Speicherung von Daten auf 
einer Diskette als Datenträger außerhalb der CPU. 

Hardware 

I- Geräte, Einheiten: 

- Zentraleinheit bzw. CPU 

- Periphere Einheiten (Drucker, Diskette, Tastatur) 

- Datenträger: 

- Festplatte, Plattenstapel, Diskette 

- Magnetband, Kassette 

Die Hardware als harte Ware kann man anfassen 

Die Software als zweite Komponente des Computers kann man im 
Gegensatz zur Hardware nicht anfassen. Software bedeutet soviel wie In¬ 
formation; sie umfaßt die Daten und auch die Programme als Vorschrif¬ 
ten zur Verarbeitung dieser Daten. Ist die Hardware als festverdrahtete 
Elektronik des Computers fest und vom Benutzer nicht (ohne weiteres) 
änderbar, dann gilt für die Software genau das Gegenteil: Jeder Benutzer 
kann Programm wie Daten verändern, austauschen, ergänzen und auch 
zerstören. 
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Sof tware 
I- Daten: 

- Objekte der Datenverarbeitung 

- "Was wird verarbeitet?" 

'- Programm: 

- Geordnete Folge von Anweisungen 

- "Wie ist zu verarbeiten?" 

Die Software als weiche Ware kann man nicht anfassen 

Die Firmware als dritte Komponente des Computers kann man der Hard¬ 
ware oder der Software zuordnen. Sie ist deshalb wie ein "Zwitter" halb 
Hardware und halb Software. So ist z.B. das Rechenprogramm jedes Ta¬ 
schenrechners in einem speziellen Speicher ROM (Read Only Memory als 
Nur-Lese-Speicher) enthalten. Der Benutzer kann dieses Programm zwar 
laufen lassen und Information entnehmen und lesen (read), nicht jedoch 
abändern. Für den Benutzer ist es wie Hardware fest. Für den Hersteller 
des ROMs hingegen stellt es sich wie Software veränderbar dar, da er 
den Speicher ROM ja programmieren kann und muß. 

Ein anderes Beispiel: Für viele Mikrocomputer werden Module mit fest 
im ROM gespeicherten Programmen angeboten: der Anwender steckt ein 
Modul in den Eingabeschacht seines Computers und befindet sich so¬ 
gleich im Programm. Er kann dieses Programm als Firmware zwar laufen 
lassen bzw. ausführen, nicht aber umprogrammieren und verändern. Die 
Module werden auch als Software-Chips bezeichnet. 

Mit der Mikrotechnologie, mit dem Chip und dem IC (Integrated Circuit 
für Integrierter Schaltkreis) hat die Firmware immer mehr an Bedeutung 
gewonnen. 

Drei Komponenten des Computers: Die Hardware (fest verdrahtete Elek¬ 
tronik), die Software (frei änderbare Daten und Programme) und die 
Firmware (hart für den Benutzer und weich für den Hersteller) stellen 
die drei grundlegenden Komponenten jedes Computers dar. Darüber- 
hinaus gibt es weitere ....wäre: so die Orgware (Organisation von Aufbau 
und Ablauf), die Menware (Personen), die Brainware (geistige Leistun¬ 
gen) und die Teachware (Lehren und Lernen). 

1.1.2 Kosten für die Computerleistung 

Leistung bedeutet Arbeit pro Zeiteinheit. Bestand die Arbeit des Compu¬ 
ters früher im Rechnen, also im Umgang mit Zahlen (Computer heißt 
wörtlich Rechner), so wird sie heute ergänzt durch das Verarbeiten von 
Text allgemein. Die Zeiten werden immer kürzer: So arbeiten Computer 
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heute 200mal schneller als vor 25 Jahren (Nanosekundenbereich, 1-milli¬ 
ardstel Sekunde). 

Relative Abnahme der Hardware-Kosten: Betrachtet man die Entwicklung 
der Computerkosten, so ist ein zunehmendes Absinken der Kosten für 
die Hardware gegenüber den Kosten für die Software festzustellen. Zwei 
Gründe dafür: 

Einerseits verbilligt sich die Hardware immer mehr, sei es durch die 
Massenproduktion, sei es durch Fortschritte in der Mikrotechnologie. Bei 
entsprechender Entwicklung anderer Industriezweige dürfte ein VW-Kä- 
fer nicht mehr als 50 DM kosten und eine Boeing 767 nicht mehr als 
1500 DM. 

Andererseits verteuert sich die Software mehr und mehr, sei es durch die 
Personalkostenintensität (Gehälter für Programmentwicklung, -pflege und 
-Wartung), sei es durch das immer höhere Anspruchsniveau (Erfolgsrech¬ 
nung heute bereits allwöchentlich und früher nur einmal im Jahr zum 
Jahresabschluß). 

Man spricht schon von einer Kostenrelation von "20 % für Hardware" ge¬ 
genüber "80 % für Software". 

1.1.3 Geschichtliche Entwicklung des Computers 

Erst 1941 stellte der deutsche Ingenieur Konrad Zuse erstmals einen 
richtigen Computer vor, und 1952 wurde erstmals ein Computer an ein 
privates Wirtschaftsunternehmen in der BRD ausgeliefert. In den 60er 
Jahren begann die Zeit der Großcomputer und damit der System-Fami¬ 
lien wie IBM/360 oder Siemens 4004. Die 70er Jahre wurden von der 
Mikrotechnologie und damit vom Mikrocomputer geprägt: Die Hardware 
wurde immer kompakter, schneller und preiswerter. 

Zu Beginn der 80er Jahre hat man sich an den Preisverfall der Hardware 
gewöhnt. Wen wundert es noch, daß Hardware-Preise im Jahr um 25 % 
bis 40 % sinken? Das Interesse verlagert sich mehr und mehr auf die 
Software: Die Qualität der Programme wird zum entscheidenden Problem 
der heutigen Datenverarbeitung. Und in den 90er Jahren ....? Längst wird 
nicht mehr gelächelt über "intelligente" Computer, die ähnlich dem 
menschlichen Gehirn selbständig Probleme lösen. Die "künstliche Intel¬ 
ligenz" (abgekürzt KI) ist vor allem in Japan und den USA auf dem 
Vormarsch. Ein japanischer Anbieter hat bereits angekündigt, bis 1992 
das erste marktreife Produkt herauszubringen. 
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1.2 Hardware = Geräte + Datenträger 


1.2.1 Hardware im Überblick 

1.2.1.1 Fünf Arten peripherer Geräte bzw. Einheiten 

Um die Zentraleinheit bzw. CPU herum können bis zu sechs verschie¬ 
dene periphere Einheiten gruppiert sein: 

Eingabegeräte: _ 

- Tastatur. Belegleser_ 


Ausgabegeräte: 

_- Bildschirm, Drucker, COM 


Dialoggeräte: 

- Datensichtgerät, Terminal 






Externspeicher: 

- Disketteneinheit, Festplatte 

- Magnetplatte, Magnetband 


Zentraleinheit 

CPU 



Nur - Lese - Speicher: 

- CD-ROM, Laser-Karte 



Off - 1 i n e - 
Erfassungsgeräte: 

- Plattenschreiber, Bandschreiber, 

- Klarschriftdrucker 


Eine Einheit im Zentrum (= CPU) und mehrere periphere Einheiten um 
diese CPU herum (= Peripherie) 

Die reinen Eingabegeräte dienen auschließlich der Eingabe von Informa- 


tion (Daten wie Programme) in die CPU. Zu unterscheiden ist dabei die 
Direkteingabe von Hand (Tastatur) oder die Eingabe über einen Daten¬ 
träger (z.B. über Scheck mittels Klarschriftbelegleser). 

Die reinen Ausgabegeräte geben Information von der CPU aus, z.B. auf 
den Bildschirm, auf das Endlospapier vom Drucker oder auf Mikrofilm 
(COM für Computer Output on Microfilm). 

Die Dialoggeräte übernehmen zwei Aufgaben: die Eingabe (in die CPU 
hinein) wie auch die Ausgabe (aus der CPU heraus). Das Bildschirmgerät 
bzw. Datensichtgerät besteht nur aus Tastatur und Bildschirm, es ist das 
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einfachste Terminal. Terminal heißt soviel wie Datenendstation, End¬ 
punkt des Benutzers zum Computer oder "Benutzerschnittstelle" und be¬ 
zeichnet das Zugangsmedium des Benutzers zur CPU. Der Zugang kann 
dabei die Eingabe, die Ausgabe oder beides umfassen; er kann mecha¬ 
nisch, visuell, manuell und akustisch erfolgen. Ein Terminal umfaßt da¬ 
nach eine oder mehrere periphere Einheiten mit unterschiedlichen Da¬ 
tenträgern. 

Die Externen Speicher übernehmen zusätzlich zur Ein- und Ausgabe von 
Information auch deren Speicherung. Während der Hauptspeicher als in¬ 
terner Speicher der CPU Information nur kurzfristig zur Verarbeitungs¬ 
zeit aufnimmt, so dienen die externen Speicher zur langfristigen Aufbe¬ 
wahrung von Daten und Programmensowie zur Datensicherung (Backup). 

Die externen Nur-Lese-Speicher wurden von der Unterhaltungselektronik 
übernommen. Auf einer CD-ROM sind durch einen Laserstrahl auf einer 
spiralförmigen Spur dicht hintereinander winzige Löcher eingebrannt. So 
können über 500 MB (550 Mega Bytes bzw. über 250000 Schreibmaschi¬ 
nenseiten) auf einer CD-ROM untergebracht werden. 

On-line-Peripherie: Eingabegeräte, Ausgabegeräte, Dialoggeräte und Ex¬ 
terne Speicher zählen zur On-line-Peripherie. Die Verbindung zur CPU 
ist on-line, d.h. eine direkte Kabelverbindung ermöglicht die Übertra¬ 
gung von Information. Im Gegensatz dazu tritt bei der Off-line-Periphe- 
rie an die Stelle der Übertragung von Daten der Transport von Daten 
(samt Datenträgern); es besteht keine direkte Verbindung zwischen dem 
peripheren Gerät und der CPU mehr. 

Datenerfassung heißt, Information computerlesbar machen. Bei Off-line- 
Erfassungsgeräten besteht zum Zeitpunkt der Datenerfassung keine 
direkte Verbindung zur CPU: Die Daten werden auf einem im Erfas¬ 
sungsgerät mitlaufenden Datenträger gespeichert. Geschieht die Erfassung 
hingegen on-line, dann ist die Erfassung gleichbedeutend mit der Ein¬ 
gabe. 

1.2.1.2 Drei Gruppen von Datenträgern 

Nach den Geräten der Hardware (CPU, Peripherie) kommen wir nun zu 
den Datenträgern; diese müßten eigentlich Informationsträger heißen, da 
sie nicht nur Daten speichern bzw. tragen, sondern auch Programme. 

Man unterscheidet gelochte, magnetische und optische Datenträger - je 
nachdem, ob die Information durch Lochungen, magnetisierte Punkte 
oder Lichtmarkierungen (hell/dunkel, Laser) dargestellt wird. 
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Datenträger: 



Gelochte Datenträger: 

- Lochkarte, Lochstreifen 


Magnetische Datenträger: 

- Magnetplatte, Magnetband, Diskette, Kassette 

- Festplatte, Magnetblasenspeicher 


Optische Datenträger: 

- Markierungsbeleg, Klarschriftbeleg, 

- Balkencode-Beleg, Optische Platte 


Datenträger zur Aufbewahrung von Daten und Programmen 


Die Lochkarte und der vom Fernschreiber übernommene Lochstreifen 
werden zunehmend durch magnetische Datenträger ersetzt. 

Die Magnetplatte als Wechselplatte (in Plätteneinheit auswechselbar) hat 
meistens 37 cm Durchmesser. Beim Magnetplattenstapel sind z.B. sechs 
solcher Einzelplatten zu einem Stapel fest übereinander montiert mit 
einer Speicherkapazität bis 300.000.000 Zeichen (=150.000 DIN A4-Sei- 
ten). 

Die Diskette bzw. Floppy Disk als verkleinerte Form der Magnetplatte 
wird als Wechselplatte zur einseitigen oder auch zweiseitigen Speicherung 
bei einfacher oder doppelter (2D) Aufzeichnungsdichte angeboten. Der¬ 
zeit sind vier Disketten-Größen verbreitet: die Maxi-Diskette mit 8" = ca. 
20 cm, die Mini-Diskette mit 5.25" = ca. 13 cm und die Mikro-Disketten 
mit 3.5" = ca. 9 cm Durchmesser bzw. 3" Durchmesser. Disketten errei¬ 
chen Kapazitäten von 1.000.000 Zeichen (= 500 DIN A4-Seiten) und 
mehr. 

Die Festplatte (Hard Disk) ist fest mit dem Gerät verbunden und somit 
nicht auswechselbar. Als Kunststoffplatte ist sie z.B. in den Größen 14", 
8" und 5.25" im Handel. Aufgrund der hohen Umdrehungszahl (mehrere 
1000 mal/min gegenüber 360 mal/min bei der Diskette) wird eine große 
Zugriffsgeschwindigkeit wie auch Kapazität erreicht: Über 50.000.000 
Zeichen/Platte sind möglich (= 25.000 DIN A4-Seiten). 

Das Magnetband als der typische Massendatenspeicher (1,27 cm breit und 
730 m lang) kann bis ca. 35.000.000 Zeichen (= 17.500 DIN A4-Seiten) 
auf nehmen. In seiner verkleinerten Form als Datenkassette werden ca. 
300.000 Zeichen (= 150 DIN A4-Seiten) erreicht; erhältlich ist die Nor¬ 
malkassette, die 1/4-Zoll-Kassette und die 1/8-Zoll-Kassette. 
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Der Magnetblasenspeicher (Bubble Memory) arbeitet ohne mechanische 
Teile und wird den herkömmlichen Medien (Band, Platte) demnächst 
Konkurrenz machen. 

Optischen Datenträger , die der direkten Beleglesung dienen: Beim Mar¬ 
kierungsbeleg (Erhebungen, TÜV, Bestellungen) werden Ja/Nein- 
Markierungen mit Bleistift ausgefüllt und vom Belegleser optisch ein¬ 
gelesen. 

Beim Klarschriftbeleg (Scheck, Zahlkarte) wird optisches Zeichen-Erken- 
nen (OCR für Optical Character Recognition) dadurch erreicht, daß spe¬ 
ziell für die DV genormte OCR-Schriften verwendet werden wie OCR- 
A, OCR-B und IBM-407. 

Beim Magnetschriftbeleg (Post-Briefverteilung) werden einzelne Zeichen 
mit senkrechten Balken aus magnetisierter Farbe dargestellt: jeweils sie¬ 
ben Balken bei der CMC-7-Schrift, Dick-Dünn-Abweichungen bei der 
E-13-B-Schrift des US-Banksystems. 

Seit der Vereinbarung des Europa-Artikel-Nummern-Codes (EAN-Code) 
im Jahre 1977 findet sich dieser Balkencode - auch Bar- oder Strichcode 
genannt - zunehmend auf Warenpackungen. Durch Abtasten mit einem 
Lesegerät bzw. Scanner (to scan = abtasten) wird die Artikelnummer ent¬ 
schlüsselt. 

Bei der optischen Platte tritt an die Stelle des Schreib-/Lesekopfs der 
herkömmlichen Magnetplatteneinheiten der Laserlichtstrahl. Dabei sind 
die gespeicherten Daten nicht mehr änderbar; aufgrund des niedrigen 
Preises wird einfach auf eine zweite optische Platte kopiert. Die Kapazi¬ 
tät liegt bei über 550.000.000 Zeichen (= 275.000 DIN A4-Seiten) bei der 
CD-ROM und bei über 2.000.000 Zeichen (= 2.000 Seiten) bei der Laser- 
Karte. 

1.2.2 Verarbeitung von Information in der CPU 

1.2.2.1 Analogie der Datenverarbeitung bei Mensch und Computer 

Die Datenverarbeitung beim Computer vollzieht sich analog zur 
Datenverarbeitung beim Menschen: Die CPU als "Gehirn des Computers" 
ist analog zum menschlichen Gehirn aufgebaut. 
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Mensch: 


Computer: 


GEHIRN CPU 


Intelligenz 


Leitwerk ALU 

Prozessor 

L_ 


-> A E—> 



Gedächtnis 

Hauptspeicher 

Daten 

Verhalten 


Daten 

_ 

Programm 


Grundmodelle der Datenverarbeitung bei Mensch und Computer 

Eingabe: Der Eingabe (E) beim Menschen (Datenaufnahme über Auge, 
Ohr, Nase) entspricht die computerlesbare Eingabe von der Tastatur. Die 
Intelligenz des Computers wird durch einen Prozessor verkörpert, der die 
arithmetischen und logischen Grundoperationen durchführt (ALU für 
Arithmetic Logical Unit) sowie das Gesamtsystem steuert (Steuer- bzw. 
Leitwerk). 

Verhalten und Programm: Nach der Intelligenz (Prozessor) als steuerndem 
bzw. aktivem Teil des Gehirns nun zum Gedächtnis (Hauptspeicher) als 
aufnehmendem bzw. passivem Teil: Den menschlichen Verhaltensabläufen 
- sicher äußerst vage - vergleichbar sind die Computerprogramme als 
Anweisungsfolgen, "wie zu verarbeiten ist", während die gespeicherten 
Daten angeben, "was verarbeitet wird". 

Ausgabe: Die Ausgabe (A) bzw. Datenwiedergabe (z.B. durch Sprechen 
und handschriftlich) erfolgt beim Computer in computerlesbarer Form 
(z.B. Ausgabe der Lohndaten auf Diskette) und/oder in menschenlesbarer 
Form (z.B. am Bildschirm oder Drucker). 

Eva-Prinzip: Mensch wie Computer sind datenverarbeitende Systeme, die 
durch die Drei-Schritt-Folge "Eingabe -> Verarbeitung -> Ausgabe" 
(kurz EVA-Prinzip genannt) gekennzeichnet werden können. Als CPU 
dient beim Personalcomputer bzw. Mikrocomputer ein IC auf einem ca. 
0,5 cm langen Silicium-Chip. Ein weiterer IC ist für den Hauptspeicher 
(auch Arbeitsspeicher genannt) vorgesehen. Öffnet man den Computer, 
dann wird man diese und weitere Chips sehen, die auf Kunststoff- 
platinen angeordnet und über aufgedruckte Leiterbahnen miteinander 
verbunden sind. 
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Analogiebildung: Die hier dargestellte Analogie der Datenverarbeitung 
bei Mensch und Computer bedeutet nicht, daß Computer künstliche 
Menschen sind. Das einzig Menschliche an Computern ist, daß sie vom 
Menschen konstruiert sind. Sonst sind Computer dumm; sie können nur 
so arbeiten, wie ihnen durch die Programme vorgeschrieben wurde. Diese 
Programme haben zudem etwas äußerst Unmenschliches an sich: Sie 
beinhalten vornehmlich sich oft wiederholende, routinemäßig ablaufende 
und stupid geistestötende Tätigkeiten, die von Computern aber sehr 
schnell, exakt und beliebig oft ausgeführt werden können. 

1.2.2.2 Computer als speicherprogrammierte Anlage 

Früher Hardware-Prinzip: Früher - und das ist erst etwa 30 Jahre her - 
war das jeweilige Programm als Hardware festverdrahtet: So konnte der 
Buchungsautomat nur die Buchhaltung besorgen, der Fakturierautomat 
nur Rechnungen schreiben und der Sortierautomat nichts als nur sortie¬ 
ren. Für jede neue Aufgabe mußte ein neuer Automat angeschafft wer¬ 
den. 

Heute Software-Prinzip: Diesem sicher unwirtschaftlichen Hardware- 
Prinzip machte John von Neumann (1903-1957) mit der folgenden ohne 
Zweifel revolutionärsten Idee in der Geschichte der EDV ein Ende: Da¬ 
nach enthält der Hauptspeicher nicht nur die zu verarbeitenden Daten, 
sondern auch das Programm. Da neben den Daten (was wird verarbeitet?) 
auch das Programm (wie ist zu verarbeiten?) geändert und ausgetauscht 
werden kann, wird ein und derselbe Computer (Hardware bzw. Gerät 
unverändert) zum universellen Problemlösungsinstrument (Software bzw. 
Programm änderbar). Die oben angeführten Aufgaben der Buchhaltung, 
Fakturierung wie Sortierung lassen sich nun von einem Computer mit den 
entsprechenden Programmen lösen. 

Das Prinzip der Speicherprogrammierung hat das Hardware-Prinzip abge¬ 
löst: Heute dient ein Computer mit vielen austauschbaren Programmen 
vielen Aufgaben. 

1.2.2.3 Computerrechnen im Dual-System Bit für Bit 

Das Rechnen vollzieht sich in der ALU als Bestandteil der CPU. Wie ist 
dies möglich, wo der Computer doch nur Binärzeichen (binär bedeutet 
zweiwertig) mit den zwei möglichen Zuständen 0 (kein Strom) und 1 
(Strom) unterscheiden kann? Er rechnet im 2er-System bzw. Dual-System 
und nicht wie wir Menschen im 1 Oer-System bzw. Dezimal-System. 
Addieren wir 5+9 = 14, so erfolgt das berühmte "1 im Köpfchen" bei 10, 
da wir im 1 Oer-System denken. Der Computer führt den Übertrag nicht 
bei 10 durch, sondern bei 2, da er gelernt hat, im 2er-System zu funk¬ 
tionieren. Woher aber weiß er, wie groß Stellenergebnis und -übertrag 
sind? Er weiß es durch folgenden Trick: Die Addition ist auf die logi¬ 
schen Grundoperationen "logisch UND" und "logisch ODER" zurückführ- 
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bar, und diese Operationen lassen sich als Schalter in der ALU darstellen. 
Damit benötigt ein Computer im Grunde nur so wenige Schalter, wie lo¬ 
gische Operationen darzustellen sind. 


+ 9 dezimal: 

3 2 10 

0 10 10 10 

0 0 0 5 

0 0 0 9 

0 0 14 


5+9 dual: 

3 2 10 

2 2 2 2 

0 10 1 

10 0 1 


1110 


*8 + 1*4 + 1*2 + 0*1 = 14 
*10 + 4*1 = 14 

Iso: dual 1110 gleich dezimal 14 


duale Addition 
allgemein: 


0 + 0 = 0 
0 + 1=1 
1+0 = 1 
1 + 1=0 

/k 

logisch 

ODER 


behalte 0 
behalte 0 
behalte 0 
behalte 1 

A 


logisch UND 


Dezimale Addition 5+9 (links), duale Addition 5+9 (rechts) 

Das Binärzeichen wird als Bit (Binary Digit) abgekürzt. Die 4-Bit-Folge 
1110 als Bitmuster bezeichnet die Dezimalzahl 14. 

1.2.3 Speicherung von Information intern im Hauptspeicher 

Information (Daten, Programme) setzt sich aus Zeichen wie Buchstaben, 
Ziffern und Sonderzeichen zusammen. Da der Computer nur ein Bit mit 
den beiden Werten 0 und 1 unterscheiden kann, muß jedes Zeichen als 
Bitmuster gespeichert weden, z.B. der Buchstabe K durch das Bitmuster 
01001011 als 8-Bit-Folge. Auf den Datenträgern werden Bits meist durch 
magnetisierte Punkte dargestellt. Im Hauptspeicher dagegen werden Bits 
durch Schalter dargestellt, die auf "aus" für 0 oder auf "ein" für 1 stehen 
können; der Hauptspeicher als elektronischer Speicher besteht aus ICs, 
deren Schalterstellungen den Bitwerten entsprechen. Auf die externe 
Speicherung auf Datenträgern geht Abschnitt 1.2.4 ein; dieser Abschnitt 
wendet sich der internen Speicherung im Hauptspeicher (auch Arbeits¬ 
speicher genannt) zu. 

1.2.3.1 Informationsdarstellung im ASCII und EBCDI-Code 

ASCII (sprich Aski): Im Hauptspeicher wird Information vorherrschend 
im ASCII (für American Standard Code for Information Interchange) zu 
jeweils sieben Bits je Zeichen gespeichert. Jedes ASCII-Zeichen wird 
somit als Siebenbitmuster dargestellt. Im ASCII werden dadurch 128 (2 
hoch 7) Möglichkeiten computerlesbar erfaßt. 
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II 

n ff 

• « 

X o 

< £ 

o ? 
u a 

cd a> 
Ul w 

21 

blank 


22 

1 


23 

\ 


24 

S 


25 

9b 


26 

B 


27 

• 


28 

( 


29 

1 


2A 

• 


28 

♦ 


2C 



20 

_ 


2E 



2F 

/ 


30 

0 


31 

1 


32 

2 


33 

3 


34 

4 


35 

5 


36 

6 


37 

7 


38 

8 


39 

9 


3A 



3B 



3C 

( 


30 

m 


3E 

) 


3F 

7 


40 

0 

blank 

41 

A 


42 

B 


43 

C 


44 

D 


45 

E 


46 

F 


47 

G 


48 

H 


49 

1 


4A 

J 

1 

4B 

K 


4C 

l 

i 

40 

M 

) 

4E 

N 

♦ 

4F 

O 

i 

50 

P 

B 

51 

Q 


52 

R 


53 

S 


54 

T 


55 

U 


56 

V 


57 

58 

W 


59 

Y 


SA 

Z 

| 

5B 

1 

S 

5C 

\ 

• 

5D 

| 

1 

5E 



5F 

00 


A 

61 

• 


62 

b 



Die beiden Codes ASCII und EBCDI 

Byte mit 8 Bits: Unabhängig vom Code faßt man jeweils acht Bits zu ei¬ 
ner Einheit zusammen, die man Byte nennt. Beim ASCII als 7-Bit-Code 
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ist das achte Bit eines Byte prinzipiell frei; je nach Anwendung wird es 
verschieden behandelt (z.B. stets 0 oder zur Aufnahme eines Prüfbits). 
Beispiel: 7.25 DM soll im ASCII dargestellt werden, also zwei Buchstaben 
(DM), drei Ziffern (725) und zwei Sonderzeichen (. und Blank). Man er¬ 
hält demnach die folgenden sieben Bytes 00110111 00101110 00110010 
00110101 00100000 01000100 01001101; dabei steht das Achtbitmuster 
00100000 als fünftes Byte für das Leerzeichen bzw. Blank. 

EBCDI-Code: IBM-Großcomputer verwenden nicht den ASCII, sondern 
den EBCDI-Code (Extended Binary Code Decimal Interchange Code), der 
als 8-Bit-Code 256 (2 hoch 8) verschiedene Möglichkeiten erfaßt. 

1.2.3.2 Hexadezimale Darstellung von Zeichen 

Die sieben Bytes für 7.25 DM sind nicht gerade leicht zu entschlüsseln. 
Um der besseren Lesbarkeit willen wird man sich Zeichen auf dem Bild¬ 
schirm oder Drucker nicht als Bitmuster ausgeben lasssen, sondern hexa¬ 
dezimal (auch sedezimal oder kurz hex genannt). 

- Darstellung von 7.25 DM im ASCII hexadezimal: 37 2E 32 35 20 44 

4D. 

- Darstellung von 7.25 DM im EBCDI-Code hexadezimal: F7 4B F2 

F5 21 C4 D4 

- Die hexadezimale Darstellung von 7.25 DM in den beiden Codes ist 

wesentlich besser lesbar als die zugehörige Bitmusterdarstellung. 

- Die Übersetzung von binär nach hex besorgt der Computer selbst. 

- Die hexadezimale Darstellung stellt nur eine Lesehilfe dar. Im 

Hauptspeicher werden die Daten stets binär gespeichert und auf- 
gerufen. 


Hex: 

Dezimal: 

Binär: 

0 

0 

0000 

1 

1 

0001 

2 

2 

0010 

3 

3 

0011 

4 

4 

0100 

5 

5 

0101 

6 

6 

0110 

7 

7 

0111 

8 

8 

1000 

9 

9 

1001 

A 

10 

1010 

B 

11 

1011 

C 

12 

1100 

D 

13 

1101 

E 

14 

1110 

F 

15 

1111 


Hexadezimale Darstellung von genau 16 Zeichen 
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1.2.3.3 Hauptspeicher als RAM und ROM 

RAM zum Lesen und Schreiben: Der Speicher RAM ist ein Schreib-Lese- 
Speicher (Random Access Memory für Direkt-Zugriff-Speicher); der Be¬ 
nutzer kann in den RAM Information schreiben bzw. eingeben wie auch 
aus dem RAM Information lesen bzw. ausgeben. Insbesondere bei Perso¬ 
nalcomputern ist der Hauptspeicher als RAM ausgebildet, um das An¬ 
wenderprogramm und die zu verarbeitenden Daten aufzunehmen. 

ROM nur zum Lesen: Häufig ist ein zusätzlicher Teil des Hauptspeichers 
als Speicher ROM vorgesehen (vgl. Abschnitt 1.1.1). Auf diesen Nur- 
Lese-Speicher (Read Only Memory) kann der Anwender nur lesend zu¬ 
greifen. Im ROM als Festspeicher werden z.B. Steuerungsprogramme - 
vom Hersteller fest eingeschmolzen - bereitgestellt, die wir zwar anwen¬ 
den, aber nicht verändern können. 

Die Informationsdarstellung durch die Codes ASCII sowie EBCDI gilt für 
den Hauptspeicher allgemein - unabhängig, ob er nun als Speicher RAM 
oder als Speicher ROM ausgebildet ist. 

1.2.3.4 Byte als Maßeinheit für die Speicherkapazität 

Das Byte dient einerseits zur Darstellung von Zeichen und andererseits 
zur Angabe der Speicherkapazität. 

- 1 KB = 1 Kilo-Byte = 2*® Bytes = 1024 Bytes = ca. eintausend 

Zeichen Speicherkapazität 

- 1 MB = 1 Mega-Byte = 1024 KB = 1.048.576 Bytes = ca. eine 

Million Zeichen Speicherkapazität 

Die Angabe "512 KB RAM" oder auch einfach "512 K RAM" bedeutet, 
daß dem Benutzer ein Hauptspeicherplatz von ca. 512.000 Zeichen Größe 
für Programm und Daten zur Verfügung steht. 

1.2.4 Speicherung von Information extern auf Datenträgern 
1.2.4.1 Kassette und Magnetband 

Bitserielle Aufzeichnung: Auf Kassette werden Daten Bit für Bit hinter¬ 
einander, d.h. bitseriell, aufgezeichnet. Dies ist bei Audiokassetten- 
laufwerken der Fall wie bei den eigens für den Computereinsatz ent¬ 
wickelten Recordern. Die acht Bits 01001101 für den Buchstaben M ste¬ 
hen auf Kassette also hintereinander. 

Bitparallele Aufzeichnung: Auf das wesentlich breitere Magnetband hin¬ 
gegen passen die Bits nebeneinander: Demnach liegt beim Magnetband 
eine bitparallele Aufzeichnung vor. 
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Streamer: Zu unterscheiden sind Start-/Stop-Geräte und Streaming-Ge¬ 
räte: Bei den Start-/Stop-Geräten wird blockweise gespeichert, wobei je¬ 
der Block durh Klüfte (Gaps) als Leerräume vom nächsten Block ge¬ 
trennt ist. Leerräume bzw. Klüfte kosten Speicherplatz. Sie sind erfor¬ 
derlich, da nur bei gleichmäßiger Bandgeschwindigkeit gelesen und ge¬ 
schrieben werden kann. Die Übertragungsraten liegen zwischen 250 und 
1500 Baud bzw. bps (Bits pro Sekunde bei serieller und Bytes (Zeichen) 
pro Sekunde bei paralleler Aufzeichnung). 

Bei den Streaming-Geräten entfallen die Klüfte und Start-/Stop-Marken. 
Die Daten "strömen" (to stream) ohne Stops in der kompletten Bandlänge 
in den Hauptspeicher. Streaming-Laufwerke werden hauptsächlich zur 
Datensicherung (Back-Up) von Plattendaten (Festplatten) verwendet. 
Streamer sind billiger, schneller und speicherplatzsparender als Start- 
/Stop-Cartridges; die kleinste Zugriffseinheit aber ist das gesamte Band 
(vgl. Abschnitt 1.2.4.5). 

Wozu Magnetband? Wichtige Einsatzgebiete des Bandes sind die Langzeit¬ 
archivierung, die Datensicherung (Back-Up), der Daten- und Programm¬ 
austausch sowie -vertrieb (Postversand), die Ersterfassung von Daten, die 
Speicherung von Datenbeständen mit Reihenfolgeverarbeitung (z.B. In¬ 
ventar) und die Programmspeicherung. Im Hinblick auf die Kosten je 
abgespeichertem Byte schneidet kein Datenträger besser ab als das 
Magnetband als der typische Massenspeicher. 

Muß häufig auf Einzeldaten direkt zugegriffen werden, dann scheidet 
das Band (großes Magnetband wie kleine Kassette) aus. 

1.2.4.2 Diskette, Festplatte und Magnetplatte 

Die Speicheroberfläche der Platte als Direktzugriff-Speicher ist stets 
ähnlich organisiert - ob sie als Diskette im Maxi-, Mini- oder Mikro¬ 
format eingesetzt wird, als Festplatte in Winchester-Technologie, als 
große Magneteinzelplatte oder als Magnetplattenstapel. Am Beispiel des 
Softsektor-Formats IBM 3740, das bei Mini-Disketten fast zum Standard 
geworden ist, soll die Speicherorganisation der Platte genauer erklärt 
werden. 

Formatierung: Eine neu gekaufte Diskette ist leer, sie ist weder be¬ 
schrieben noch irgendwie unterteilt. Beim Softsektor-Format IBM 3740 
ist die Formatierung (Form der Speicheroberfläche festlegen) bzw. Sekto¬ 
rierung (Oberfläche in Sektoren als Abschnitte einteilen) softwaremäßig 
durch ein spezielles Programm wie folgt vorzunehmen: 

- 77 kreisrunde Spuren vorsehen; bei zweiseitiger Diskette bilden 

gegenüberliegende Spuren je einen Zylinder. 

- Jede Spur in gleichlange Sektoren (Abschnitte) gliedern: 26, 15 oder 

8 Sektoren/Spur, je nach der Sektorlänge von 128, 256 oder 512 
Bytes. 

- Spuren numerieren von Spur 00 (außen) bis Spur 76 (innen). 
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- Verwendung festlegen: Spur 00 für Inhaltsverzeichnis, Spuren 01- 

74 für Benutzerinformation, Spuren 75-76 Fehlerreserve. 

- Die Sektoren durch Klüfte bzw. Gaps trennen, um auf den Sektor 

als kleinste Zugriffseinheit bei 360 Umdrehungen/Minute fehler¬ 
frei zugreifen zu können. 

- Die Sektoren unterteilen in ID-Feld (= Identifikationsfeld als 

Adreßfeld) und Daten-Feld (= Benutzerinformation 128, 256 oder 
512 Bytes lang). 



Speicherorganisation der Platte am Beispiel des Softsektor-Formates IBM 

3740 für Disketten 

Indexloch: Eine Spur hat weder Anfang noch Ende. Wenn eine Licht¬ 
schranke das Indexloch überfährt, wird durch einen Impuls der "Spur¬ 
beginn" angezeigt. 

Hardsektorierung: Im Gegensatz zu der oben erklärten Softsektorierung 
wird bei der hardsektorierten Diskette die Einteilung hardwaremäßig be¬ 
reits vom Hersteller vorgenommen. 

Aufzeichnungsmethode: Bei Einzelplatten wird bitseriell auf Spuren auf- 
gezeichnet. Die acht Bits 01001101 für M im ASCII stehen also der Reihe 
nach hintereinander (z.B. auf Spur 34). 
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Beim Magnetplattenstapel kann zylinderweise auf den jeweils unmittelbar 
übereinanderliegenden Spuren aufgezeichnet werden. 

1.2.4.3 Klarschriftbeleg als Druckerausgabe 

Auf einem Klarschriftbeleg wird Information in einer für den Menschen 
sowie den Computer lesbaren Form extern gespeichert (vgl. Abschnitt 
1.2.1.2). Hier die Zeichendarstellung bei der heute besonders weit ver¬ 
breiteten Klarschrift OCR-A: 


ABCDEFGHIJKLMNOPÜRSTU 
VtüXYZ □lS34Sb7fl c l 


Klarschriftbelege werden durch Klarschriftdrucker erstellt, bei denen es 
sich vornehmlich um Laserdrucker und Typenraddrucker handelt. Hier 
eine Übersicht der Druckertypen: 

Zu unterscheiden sind mechanische Drucker (impact) und nicht-mecha¬ 
nische Drucker (non-impact), serielle Drucker (Zeichen für Zeichen 
drucken) und Zeilendrucker (zeilenweise drucken) sowie in einer Rich¬ 
tung und vor-/rückwärtsschreibende Geräte. Bei den mechanischen 
Drukkern überwiegen Matrix- und Typenraddrucker. 

Der Typenraddrucker hat Typen an Armen (Speichen) des Typenrades 
befestigt. Die Räder lassen sich auswechseln - und damit auch die 
Schrifttype sowie die Zeichendichte (z.B. 1/10" = 132 Zeichen/Zeile, 
1/12" = 158 Zeichen/Zeile, 1/15" = 198 Zeichen/Zeile). 

Typenraddrucker werden dort eingesetzt, wo es auf die Druckqualität an¬ 
kommt: z.B. in der Textverarbeitung und der Klarschrifterfassung. Man 
nennt diese auch "Schönschreibdrucker". 

Der Matrixdrucker erzeugt Zeichen in Form einer matrixförmigen An¬ 
ordnung von Einzelpunkten. Je mehr Rohre bzw. Nadeln pro Matrix, de¬ 
sto besser ist das Druckbild. Kann man Matrixpunkte einzeln anteuern, 
läßt sich der Matrixdrucker zur Ausgabe von Grafik (wie Kurven und 
Bildern) verwenden. 

Laserdrucker: Nicht-mechanische anschlagsfreie Drucker arbeiten leiser 
und schneller als Impact-Drucker: Dabei handelt es sich um Tintenstrahl¬ 
drucker (In-Jet) oder um elektrofotografische Verfahren kombiniert mit 
Laserstrahlen; beide Druckertypen arbeiten mit Normalpapier. Laser¬ 
drucker setzten sich mehr und mehr durch - insbsondere im Zuge des 
Desktop- Publishing. 
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Thermodrucker: Spezialpapier benötigen die Thermodrucker (wärmeemp¬ 
findliches Papier), die elektrostatischen Drucker (Dielektrikum auf dem 
Papier) und die Eletroerosionsdrucker (Kondensatorpapier). 

1.2.4.4 Schnittstellen als Bindeglieder CPU - Peripherie 

Schnittstelle als Steckverbindung: Soll der Informationsaustausch zwischen 
der CPU und den angeschlossenen Peripheriegeräten bzw. Datenträgern 
klappen, dann müssen die Einheiten zueinander passen, d.h. kompatibel 
(oder besser: steckerkompatibel) sein. Genau als solche Steckverbindungen 
kann man sich die Schnittstellen (engl. Interfaces) vorstellen. Damit Ge¬ 
räte verschiedener Hersteller miteinander verbunden werden können, 
müssen die Schnittstellen der Geräte genormt sein. Die vier bei Perso¬ 
nalcomputern zumeist anzutreffenden Schnittstellen sind die V.24-, die 
TTY-, die Centronics- und die IEC-Bus-Schnittstelle. 

Die V.24-Schnittstelle ist eine asynchrone, serielle Schnittstelle: Asyn¬ 
chron bedeutet, daß zwei Geräte trotz verschiedener Arbeitsgeschwindig¬ 
keiten einander angepaßt werden können; seriell heißt, daß Bit für Bit 
nacheinander übertragen werden. Die US-Schnittstelle RS-232-C ent¬ 
spricht der V.24. Beide Interfaces findet man in der Datenfernverarbei¬ 
tung. 

TTY-Schnittstelle: Als weitere serielle Schnittstelle wurde die TTY- 
Schnittstelle vom Fernschreiber (Teletype) übernommen zum Anschluß 
von Bildschirm und Drucker. 

Centronics-Schnittstelle: Nach dem Druckerhersteller Centronics benannt 
ist eine weitere Schnittstelle, mit der Drucker anderer Fabrikate ausge¬ 
rüstet sind. Als parallele Schnittstelle werden alle Bits eines Zeichens 
(Byte) über acht parallele Leitungen übertragen (gleichwohl: bitparallel, 
aber zeichenseriell). Die Centronics-Schnittstelle ist heute zum Quasi- 
Standard bei Druckern geworden; dabei wird zumeist ein 36-poliger 
AMPStecker verwendet mit nur teilweise genormter Pinbelegung (exakte 
Belegung der Pins dem Handbuch zu entnehmen.) 

Die IEC-Bus-Schnittstelle umfaßt acht Daten-, drei Quittungs- und fünf 
Steuerleitungen, um bis zu 15 Peripheriegeräte an einen Computer anzu¬ 
schließen. 

Mixed-Hardware: Exakt beschriebene Schnittstellen gehen einher mit 
dem Trend zur "Mixed Hardware" als dem Zusammenschluß von 
Peripheriegeräten unterschiedlicher Herstellermarken. Dies wiederum 
führte zur steten Ausweitung des OEM-Marktes (Original Equipment 
Manufacturer). Ein OEM ist ein Gerätehersteller, der seine Produkte 
nicht (nur) an Endabnehmer verkauft, sondern ebenso an andere Her¬ 
steller: Auf dem OEM-Markt besorgen sich Computerhersteller Peri¬ 
pheriegeräte, die sie in ihr System integrieren. So kann sich z.B. hinter 



1.2 Hardware = Geräte + Datenträger 


19 


dem IBM-Typenschild eines Druckers, den IBM für seinen Personalcom¬ 
puter anbietet, durchaus ein Epson-Drucker verbergen. 

1.2.4.5 Back-Up-Systeme zur Datensicherung 

Für Personalcomputer - autonom als Stand-alone-Systeme genutzt - bie¬ 
tet sich folgender Mix für die externen Speichergeräte an: 

Datenverarbeitung: 

- Festplatte für Systemprogramme und Anwenderprogramme 

- Diskette für Anwenderdaten 

Datensicherung: 

- Magnetband als Massenspeicher für Programme wie Daten 
Externspeicher zur Datenverarbeitung und zur Datensicherung 

Festplatten-Laufwerke bringen dem Anwender von Personalcomputern 
die gewünschten hohen Speicherkapazitäten, zugleich aber auch das Pro¬ 
blem der Datensicherung bzw. des Back-Up. Ein Beispiel: 

- eine DIN A4-Seite = ca. zwei KBytes 

- 20 MBytes auf einer Festplatte = ca. zehn Karl-May-Bücher 

- ein MByte eintippen = ca. zehn Manntage 

Bei einem Programm- oder Bedienungsfehler, Defekt des Externen Spei¬ 
chers oder des Computers selbst könnten die Daten zerstört werden; des¬ 
halb müssen Sicherungskopien der Daten erstellt werden. Bei Back-Up- 
Systemen als Reserve- bzw. Sicherungssystemen (Back-Up heißt: Zeichen 
für Zeichen z.B. auf Band kopieren) gibt es Disketten, Wechselplatten 
und Bänder als Sicherungsdatenträger (letztere im Start-Stop- sowie im 
Streaming-Betrieb (Abschnitt 1.2.4.1)). Mit dem zunehmenden Umfang 
der zu sichernden Datenbestände wird sich das Magnetband als Streamer 
durchsetzen: So kann ein Cartridge-Tape-Streamer den Inhalt einer 20- 
MB-Festplatte in wenigen Minuten kopieren und damit sichern. 

Logging: Bei dieser Art der Datensicherung werden die Sicherungskopien 
in einem gesonderten Arbeitsgang z.B. allabendlich oder zweimal je Wo¬ 
che durchgeführt. Anders geht das Logging vor, bei dem sämtliche über 
Tastatur eigegebenen Daten von einem Datensicherungsprogramm 
automatisch auf einer Zusatzdatei mitgeschrieben werden; diese Datei 
wird auch "Log-Datei" genannt. Die Datensicherung wird also bereits im 
Rahmen der Datenerfassung vorgenommen. Der Datenerfassung wenden 
wir uns jetzt zu. 
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1.2.5 Verfahren der Datenerfassung 

Datenerfassung heißt, Daten in computerlesbare Form bringen (vgl. Ab¬ 
schnitt 1.2.1.1) und umfaßt den Weg von der Entstehung der Daten bis 
zu deren Eingabe in die CPU. Da im kaufmännischen Bereich ca. 90 % 
des Zeitaufwandes auf diesen Weg entfallen, ist der Kostenanteil der 
Datenerfassung relativ hoch anzusetzen. 

Die unterschiedlichen Verfahren der Datenerfassung werden festgelegt 
durch vier Faktoren: 

1) Anzahl der Stufen, die die Daten von der Entstehung bis zur Ein¬ 

gabe durchlaufen. 

2) Verbindung zwischen Erfassungsgerät und CPU zum Zeitpunkt der 

Erfassung: off-line oder on-line. 

3) Zentrale oder dezentrale Durchführung der Erfassung. 

4) Erfassungsgerät mit eigener Intelligenz ausgestattet oder nicht. 

Zunächst ist eine einstufige, zweistufige und dreistufige Datenerfassung 
zu unterscheiden. 


ENTSTEHUNG DER DATEN DEZENTRAL IM BETRIEB 


Drei Stufen: 


Urbeleg nicht 
Computerlesbar 
(z.B. Rechnung) 

I 

Übertragung auf 
Datenträger 
(z.B. Disket¬ 
tenschreiber ) 

Eingabe in CPU 
(z.B. durch Dis 
ketteneinheit) 

_ * _ 

VERARBEITUNG DER DATEN ZENTRAL IN DER CPU 


Die "klassische Datenerfassung " durchläuft drei Stufen: Erstellen des Ur- 
belegs, Übernehmen auf Datenträger und Eingeben in die CPU. Werden 
Urbeleg und Datenträger gleichzeitig erstellt, dann verkürzt sich das 
Vorgehen auf zwei Stufen. Mit der Bildschirmerfassung sowie der Erfas¬ 
sung über Scanner bzw. Lesestift kommt man zur einstufigen Direkter¬ 
fassung. Beispiel: POS-System (Point-of-Sales-System, Verkaufspunkte- 
System). 


Zwei Stufen: Eine Stufe: 


Urbeleg oder 
beleglos 

Computerlesbarer 
Beleg = Datenträger 
(z.B. Band in Kasse 
mitlaufend) 

i 1 

Eingabe in CPU Eingabe in CPU 

(z.B. durch Band- direkt über 

einheit) Dialoggerät 

4, * 
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Bei der Off-line-Erfassmg erfolgen Erfassung und Verarbeitung voll¬ 
ständig getrennt voneinander. Beim Datensammelsystem z.B. wird zu¬ 
nächst von mehreren Erfassungsplätzen ein gemeinsamer Datenträger er¬ 
stellt, der dann später zur Verarbeitung weitergegeben wird. 

Bei der On-line-Erfassung gelangen die Daten direkt in die CPU (an die 
Stelle des Datenträgertransports tritt also die Datenübertragung). Der 
große Vorteil der on-line gegenüber der off-line durchgeführten Erfas¬ 
sung liegt in der Zeitersparnis. Als nachteilig kann sich der Umstand 
auswirken, daß während der Erfassung die CPU für andere Arbeiten 
blokkiert ist. 

Dezentrale Erfassung heißt, Daten am Ort ihrer Entstehung zu erfassen - 
z.B. im Lager und beim Verkauf. Die mobile Datenerfassung über 
tragbare Personal- und Mikrocomputer zählt hierzu. Bei der zentralen 
Erfassung hingegen bringt man alle Urbelege an eine bestimmte Stelle 
(Beispiel: Datensammelsystem). 

Intelligente Geräte: Dätenerfassungsgeräte werden zunehmend mit eigener 
Intelligenz ausgerüstet. Oder anders ausgedrückt: Zur Erfassung greift 
man immer häufiger auf Mikrocomputer zurück, die z.B. wahlweise on¬ 
line an einen Großcomputer angeschlossen sind und off-line als selbstän¬ 
dige Computereinheit (Stand-alone-System) genutzt werden. 

1.2.6 Computertypen 

Zunächst: Wenn vom "Computer" die Rede ist, dann ist damit immer der 
frei programmierbare Allzweckrechner bzw. General-Purpose-Computer 
gemeint, nicht jedoch der Spezial-"Computer" wie z.B. eine Datenbank- 
Maschine (vgl. Abschnitt 1.3.5.6) oder ein Textverarbeitungs-Automat. 

Zu den zahlreichen Typologien für Computer soll hier keinesfalls eine 
weitere hinzugefügt werden. Anhand der beiden Extreme "Personalcom¬ 
puter" und "Großcomputer” soll allein eine Orientierungshilfe gegeben 
werden. 

1.2.6.1 System-Konfigurationen für Personal- und Großcomputer 

Eine System-Konfiguration gibt an, wie periphere Einheiten um eine 
CPU zu einem funktionsfähigen DV-System zusammengestellt sind. Zu¬ 
nächst eine Gerätezusammenstellung, wie sie für Personalcomputer ty¬ 
pisch ist. Die Geräte werden dabei zeichnerisch durch Sinnbilder darge- 
stellt, die nach DIN 66001 genormt sind. 
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Für Personalcomputer typische System-Konfiguration 

Der Personalcomputer - für den persönlichen Gebrauch und durchaus 
auch zur beruflichen Nutzung gekauft - soll hier nicht von Bezeichnun¬ 
gen wie Privat-Computer, Tischcomputer, Heimrechner, Spielcomputer 
und Kleinrechner abgegrenzt werden; dazu schreitet die Entwicklung viel 
zu schnell voran. Vielmehr soll der Personalcomputer als extremes Ge¬ 
genstück zur Kategorie der Großcomputer aufgefaßt werden, die z.B. mit 
je fünf Band- und Platteneinheiten als Externspeicher ausgerüstet sein 
können. Großcomputer werden in Rechenzentren betrieben - sei es im 
unternehmenseigenen Rechenzentrum oder im Service-Rechenzentrum 
von einem freien, herstellereigenen bzw. kooperativen DV-Dienstlei- 
stungsunternehmen. Die Sinnbilder für Band und Platte werden oft auch 
für Kassette und Diskette verwendet. 



5 Magnetbandschreiber 
zur Datenerfassung 


Für Großcomputer typische System-Konfiguration 
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Computer-'Typen": Zwischen dem Personalcomputer als unterem und 
dem Großcomputer als oberem Extrem gibt es zahlreiche Abstufungen, 
wie z.B. Anlagen der Mittleren Datentechnik (MDT), Minicomputer, 
Bürocomputer oder auch Small-Business-Computer. Ebenso können meh¬ 
rere Computer zu einem Rechnerverbund vernetzt sein (Netzwerk) mit 
Satelliten-Computern, die selbständig als Stand-alone-System bzw. on¬ 
line mit einem Haupt-Computer arbeiten. Dabei sind Personalcomputer 
häufig Teil eines Großcomputer-Systems. 

Mainframes: Großcomputer werden oft als Mainframes bezeichnet und 
damit von der anschließbaren Peripherie abgegrenzt. Personalcomputer 
zählen immer häufiger zu dieser Peripherie. 

1.2.6.2 Eigenschaften von Personalcomputern 
Personalcomputer weisen allgemein folgende Eigenschaften auf: 

1) Autonom arbeitendes DY-System mit zumindest einem Externspei¬ 

cher. 

2) CPU mit mindestens 512 KB RAM für Benutzerdaten und Benut¬ 

zerprogramme. 

3) Verfügbarkeit mindestens einer höheren Programmiersprache 

(Basic, Pascal, Forth, ...). 

4) Möglichkeit, in Maschinensprache (Assembler) zu programmieren. 

5) Betriebssystem (MS-DOS, UNIX u.ä.) ermöglicht Dialog zwischen 

Benutzer und Computer. 

6) Exakt beschriebene Schnittstellen. 

Kompatibilität: Wünchenswert ist, daß Personalcomputer hardwaremäßig 
wie auch softwaremäßig kompatibel sind. So sollten Programmiersprachen 
wie BASIC und PASCAL genormt sein, für die Externspeicher einheitli¬ 
che Aufzeichnungsformen übernommen werden und Schnittstellen über¬ 
einstimmend definiert sowie steckermäßig vorgesehen sein (z.B. gesamten 
Systembus an eine Steckerleiste herausführen, damit der Anwender das 
System später erweitern kann). 

Häufig werden für Mikrocomputer die fünf Kategorien Handcomputer 
(HC), Videocomputer (VC), Grafik-Computer, Personalcomputer im eng¬ 
eren Sinne (PC) und Tragbare Computer (Portables) gebildet. 
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Hand - Computer: 

- Hand-Held-Computer, Pocket-Computer, Briefcase-Computer 

- Tastatur mit Zeilendisplay, Module, Taschenrechnerformat 

Videocomputer: 

- Tastatur mit Videoanschluß, Ausbaumöglichkeit in Richtung PC 

Grafik - Computer: 

- Schwerpunkt auf Grafik und Animation 

- Vornehmlich echte 32-Bit-Rechner 

Personalcomputer: 

- Tastatur, Diskette/Festplatte, Monitor 

- PC- und AT-Klasse 

- 16- und 32-Bit-rechner 

- Mehrere Betriebssystems 

Portable Computer: 

- Tastatur, CPU, Diskette und Monitor als Einheit 

- Tragbar, zumeist PC-kompatibel. 

- Laptop mit LCD-Display 

Fünf Kategorien von Mikrocomputern 

Daneben unterscheidet man nach der Nutzungsart Homecomputer (privat) 
und professionelle Computer (beruflich). 

1.2.6.3 Personalcomputer im Computer-Netzwerk 

LANs: Sinkende Hardware-Kosten und eine ständig zunehmende Zahl 
von Informationsquellen führen immer häufiger zur Vernetzung mehrerer 
Personalcomputer zu einem lokalen Netz. Das Attribut "lokal" verweist 
auf einen begrenzten Wirkungsbereich, wie z.B. auf eine Abteilung oder 
ein Gebäude (sog. Inhouse-Netz); auch hierzulande spricht man dabei von 
LANs (Local Area Network). 

Struktur: Es gibt Netze mit Stern-, Ring- oder Bus-Struktur. Bei stern¬ 
förmiger Anordnung ist jeder Computer mit einer zentralen Einheit ver¬ 
bunden, die verwaltet und die Netz-Leistung begrenzt; fällt sie aus, so 
bricht das gesamte Netz zusammen. Die Ring-Anordnung ist billiger, 
doch auch hier führt der Ausfall einer Station zum Ausfall des gesamten 
Netzes. Dies ist nicht so bei der Bus-Anordnung als weitverbreitetem 
Konzept: Über eine Sammelschiene kann jede Station mit jeder Station in 
Kontakt treten. 

Master: Es gibt Netze mit und ohne Master-Controller. Der Master-Bild¬ 
schirm weist die höchste Priorität auf und ist zumeist softwaremäßig an¬ 
steuerbar; gegenüber der hardwaremäßigen Verdrahtung ist dies bei Aus- 
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fall des Master-Bildschirms (andere Station als Master ansteuern) von 
Vorteil. 

Ein Netz verfügt oft nur über einen oder zwei Drucker, die mit 
Drucker-Spooling angesteuert werden. Anstatt Daten direkt auf den 
Drucker auszugeben, "drucken" die Stationen auf eine Platte 
(Zwischenspeicher), deren Information automatisch durch ein Spooler(- 
programm) ausgedruckt wird. Spool steht für "simultaneous peripheral 
operations on-line". 

BTX-Netz: Personalcomputer finden nicht nur intern im lokalen Netz 
Verwendung, sondern ebenso im öffentlichen Netz extern. So im BTX- 
Netz als BTX-Editierplatz des Informationsanbieters, als BTX-Terminal 
des Konsumenten oder als Kommunikationssystem für kleinere Firmen. 

ISDN: Nach Datex, Datex-L, Telex, Teletex und BTX werden Personal¬ 
computer in dem von der Post bereitgestellten Netz ISDN (Integrated 
Services Digital Network) eingesetzt, das Daten, Text, Standbilder wie 
auch Sprache übermittelt. 

Single-User- und Multi-User-Betrieb: Personalcomputer wurden von Be¬ 
ginn an primär als Stand-Alone-System autonom für sich allein verwen¬ 
det. Man spricht auch vom Single-User-Betrieb. 

Vernetzt man mehrere Personalcomputer, so gelangt man zu einem Multi- 
User-Betrieb, bei dem mehrere User (Benutzer) über ihre PCs als Termi¬ 
nals verbunden sind. 

Single-User-Betrieb wie auch Multi-User-Betrieb können unter Multitas¬ 
king laufen; dabei werden mehrere Aufgaben als Tasks quasi gleichzeitig 
durch eine CPU abgearbeitet. Multiusing und Multitasking stellen hohe 
Anforderungen an das Betriebssystem (siehe Abschnitt 1.3.6.6). 
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1.3 Software = Daten + Programme 


1.3.1 Software im Überblick 

Software ist Information und wird unterteilt in Daten und Programme 
(vgl. Abschnitt 1.1.1). Auf diese beiden Komponenten der Software wol¬ 
len wir nun eingehen. 

1.3.1.1 Begriffsbildungen für Daten 

Sieben wichtige Begriffspaare für Daten sind zu unterscheiden (siehe 
Abbildung): 

Stammdaten bleiben normalerweise über einen längeren Zeitraum hinweg 
konstant (z.B. Artikelstammdaten, Kundenstammdaten, Personalstammda¬ 
ten), Änderungsdaten dienen der Anpassung von Stammdaten. 
Bestandsdaten: Im Gegensatz zu Stammdaten erfahren Bestandsdaten oft¬ 
malige Änderungen, die durch Bewegungsdaten vorgenommen werden 
(Zugang für + und Abgang für -); letztere werden kurz auch als Bewe¬ 
gungen bezeichnet. Die Lagerbestandsfortschreibung nach der Formel 
"Anfangsbestand + Zugänge - Abgänge ergibt Endbestand" gehört in 
diese Kategorie von Daten. 

Ordnungsdaten legen eine Speicherungs-, Sortier- bzw. Verarbeitungs¬ 
folge fest, Mengendaten hingegen eine Anzahl (Stück, Größe, Gewicht, 
Preis). 

Numerische- und Textdaten: Mit numerischen Daten bzw. Zahlendaten 
rechnet jeder Computer, nicht jedoch mit Textdaten. Letztere umfassen 
beliebige Zeichen, die stets zwischen Gänsefüßchen oder Hochkommata 
stehen. Sie werden auch als alphanumerische Daten, als Zeichenketten¬ 
daten oder als Strings bezeichnet. 

Unformatierte Daten weisen keine einheitliche Form auf. In der kommer¬ 
ziellen Datenverarbeitung überwiegen formatierte Daten: Auf einem 
Rechnungsformular stehen z.B. die Dezimalpunkte der DM-Beträge 
untereinander jeweils auf zwei Nachkommastellen gerundet. 

1) Stammdaten (1019 als Kundennummer) 
oder 

Änderungsdaten (1019007 als neue Kundennummer mit PLZ=*7) 

2) Bestandsdaten (256 als Lagermenge) 
oder 

Bewegungsdaten (70 Stück als Lagerbestandszugang) 
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3) Ordnungsdaten (6 für die Artikelfarbe "gelb") 
oder 

Mengendaten (8 kg als Bestellmenge) 

4) Numerische Daten (Zahl 10950.25 als Rechnungspreis) 
oder 

Textdaten ("Francs" als Währungsbezeichnung) 

5) Unformatierte Daten (z.B. ein Brief) 
oder 

Formatierte Daten (z.B. Rechnungsformular) 

6) Einfache Datentypen (z.B. 50 als eine Mengenangabe) 
oder 

Strukturierte Datentypen (z.B. drei Mengen 50 24. 98) 

7) Im Programm gespeicherte Daten (z.B. 6% in Variable R) 
oder 

Getrennt vom Programm gespeicherte Daten (z.B. Kundendatei) 
Sieben grundlegende Begriffspaare für Daten 

Mit die wichtigste Unterscheidung ist die von einfachen Datentypen und 
Datenstrukturen: 

Einfache Datentypen bestehen aus jeweils nur einem einzigen Datum, so 
aus einer Ganzzahl (INTEGER), aus einer Dezimalzahl (REAL) oder aus 
einem Textwort (STRING). 

Strukturierte Datentypen: Die Datenstrukturen als strukturierte Daten¬ 
typen hingegen umfassen jeweils mehrere Daten, die unterschiedlich z.B. 
als Feld (ARRAY), Verbund (RECORD) oder Datei (FILE) angeordnet 
sein können. In Abschnitt 1.3.5 werden die Datentypen im Zusammen¬ 
hang mit der Datei genauer erklärt. 

Datei bzw. File: Einzeldaten und kleinere Datenbestände lassen sich in¬ 
nerhalb eines Programmes speichern, so z.B. der Rabattsatz in einem 
Rechnungsschreibungsprogramm. Die umfangreichen in der kommerziel¬ 
len Datenverarbeitung zu verarbeitenden Datenbstände werden getrennt 
vom Programm als Datei auf Platte oder Band als externem Speicher un¬ 
tergebracht. 

1.3.1.2 Begriffsbildungen für Programme 

Man unterscheidet Anwenderprogramme und Systemprogramme. Dazwi¬ 
schen sind die Software-Werkzeuge bzw. Tools einzuordnen. 
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Anwenderprogramme: 

- Vom Anwender selbst erstellt (z.B. eigene Rechnungs¬ 
schreibung) 

- Von Softwarehaus fremd bezogen (z.B. Standardpaket) 

Werkzeuge (Tools): 

- Dateiverwaltung (z.B. dBASE) 

- Textverarbeitung (z.B. Word) 

- Tabellenkalkulation (z.B. Multiplan) 

- Grafik (z.B. Chart) 

Systemprogramme: 

- Steuerprogramm (z.B. COMMAND.COM von MS-DOS) 

- Dienstprogramm (z.B. Utility zum Sortieren von Dateien) 

- Übersetzerprogramm (z.B. TURBO Pascal-Compiler) 

Anwenderprogramme (Problem) und Systemprogramme (Computer) 
und Tools (dazwischen) 

Anwenderprogramme lösen die konkreten Probleme des jeweiligen An¬ 
wenders und werden auch Benutzer- bzw. Arbeitsprogramme genannt 
oder unter der Bezeichnung Anwender-Software zusammengefaßt. An¬ 
wenderprogramme können vom Anwender selbst erstellt und program¬ 
miert oder fremd von einer Softwarefirma bezogen sein. Zwischen diesen 
beiden Extremen gibt es zahlreiche Abstufungen: so z.B. im Falle der in¬ 
dividuellen Anpassung standardisierter Anwender-Software. Auf das An¬ 
passen wie auch Erstellen von Anwenderprogrammen gehen wir in den 
Abschnitten 1.3.7 und 1.3.8 näher ein. 

Systemprogramme: Gegenstück sowie Ergänzung-zu den Anwenderpro¬ 
grammen sind die Systemprogramme, deren Gesamtheit als Betriebs¬ 
system bezeichnet wird. Ein Betriebssystem gewährleistet den geordneten 
Betrieb des jeweiligen DV-Systems. Ganz allgemein wird das Betriebs¬ 
system oft als OS (Operating System) und als DOS (Disk Operating 
System, da plattenoriertiert) bezeichnet. Jedes Betriebssystem umfaßt drei 
Arten von Systemprogrammen: 

- Die Steuerprogramme steuern das Zusammenwirken der Peripherie 

mit der CPU und die Ausführung eines Programms. Die 
Dienstprogramme bzw. Utilities sind zwar nicht unbedingt 
notwendig, werden aber als unerläßlicher Komfort zum einfachen 
und benutzerfreundlichen Betrieb des Computers angesehen (ein 
Programm zur Herstellung einer Diskettenkopie gehört eben 
einfach "dazu"). 

- Steuer- und Dienstprogramme bilden oft eine Einheit: Ein Editor 

z.B. dient zumeist nicht nur dem Eintippen und Bearbeiten von 
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Programmtext über einen Bildschirm, dem sogenannten Editieren 
also, sondern ebenso dem Abspeichern dieser Texteingabe auf 
Diskette oder Band, und damit der Ein-/Ausgabesteuerung. 

- Ein Übersetzerprogramm übersetzt den in einer Programmierspra¬ 
che wie z.B. BASIC codiertes Anwenderprogramm in die Mutter¬ 
sprache des Computers bzw. in die 0/1-Form. Das ist vergleichbar 
mit der Tätigkeit eines Dolmetschers, der Sätze aus einer Fremd¬ 
sprache (z.B. Englisch) in die eigene Muttersprache (z.B. Deutsch) 
übersetzt. Ein Computer versteht so viele Fremdsprachen bzw. 
Programmiersprachen, wie Übersetzerprogramme vorhanden sind. 
Die meisten Personalcomputer verstehen die Programmiersprachen 
BASIC und TURBO PASCAL, da die zugehörigen Übersetzerpro¬ 
gramme lieferbar sind. 

Betriebssystem: Was für das Auto das Benzin bedeutet, um von Astadt 
nach Bdorf fahren zu können, das bedeutet für die Computer-Hardware 
das Betriebssystem, um ein Anwenderprogramm ausführen zu können. In 
Abschnitt 1.3.6 wenden wir uns dem Betriebssystem genauer zu. 

Programmstrukturen: Wie für Daten allgemein Datenstrukturen unter¬ 
schieden werden, so werden für Programme (Anwender- wie Systempro¬ 
gramme) üblicherweise vier Programmstrukturen definiert. 

(1) Folgestrukturen: 

- Lineare Programme 

(2) Auswahlstrukturen: 

- Verzweigende Programme 

(3) Wiederholungsstrukturen: 

- Programme mit Schleifen 

(4) Unterprogrammstrukturen: 

- Programme mit Unterabläufen (Prozeduren, Funktionen) 

Vier grundlegende Programmstrukturen 

Diese Programmstrukturen werden als "Bausteine der Software" bezeich¬ 
net, da die Analyse noch so komplexer Programmabläufe stets zu diesen 
Strukturen als Grundmuster führt. In Abschnitt 1.3.3 werden die Pro¬ 
grammstrukturen an kleinen Beispielen und Abschnitt 1.3.4 im Zusam¬ 
menhang mit den Datenstrukturen erklärt. 
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1.3.2 Datentypen und Datenstrukturen 

Im vorangehenden Abschnitt wurden sieben Daten-Begriffe angeführt, 
darunter der Begriff des Datentyps. Dieser Begriff ist grundlegend für 
die Programmierung. Wir wollen ihn erklären: Es gibt einfache und 
strukturierte, statische und dynamische sowie standardmäßig vorhandene 
und benutzerseitig definierbare Datentypen. 

1.3.2.1 Einfache Datentypen als "Moleküle" 

Einfache Datentypen lassen sich nicht weiter zerlegen und werden deshalb 
auch als elementare, skalare sowie unstrukturierte Datentypen bezeichnet. 
Diese Typen enthalten deswegen stets nur ein einziges Datum und stellen 
sozusagen die "Moleküle" der Daten dar, da sie vom Programmierer nicht 
- so ohne weiteres - unterteilt werden können. 

Char: 

- Einzelzeichen wie z.B. "D" 

- Wertebereich: Zeichen (Buchstabe, Ziffer, Sonderzeichen) 

Integer: 

- Ganze Zahl wie z.B. 126 

- Wertebereich: Ganze Zahlen z.B. von -32768 bis 32767 
Real: 

- Dezimalzahl wie z.B. 126.75 

- Wertebereich: Reelle Zahlen, Zahlen mit Dezimalpunkt 
B o o 1 e a n : 

- Ja/Nein-Entscheidung wie z.B. ja bzw. True bzw. wahr 

- Wertebereich: True (-1, wahr) oder False (0, unwahr) 

String: 

- Zeichenkette, Text (als Dateneinheit) 

- Wertebereich: Gesamter Zeichenvorrat des Computers 

Fünf einfache bzw. elementare Datentypen 

Der Datentyp CHAR umfaßt nur ein Zeichen. Als STRING (Text) gilt 
alles, was zwischen Gänsefüßen oder Hochkommata steht, also auch der 
Text "99.50 DM Summe". Numerische Typen sind INTEGER oder REAL. 
Der Datentyp BOOLEAN kennt nur die zwei Werte TRUE (z.B. Stamm¬ 
kunde) oder FALSE (kein Stammkunde). 
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1.3.2.2 Datenstrukturen als strukturierte Datentypen 

Strukturierte Datentypen sind neben anderen der ARRAY, der 
RECORD, der SET und der FILE. Dabei werden mehrere Daten unter 
einem Namen zusammengefaßt abgelegt. Der ARRAY wird auch als 
Feld, Tabelle und Bereich bezeichnet und enthält Komponenten bzw. 
Elemente gleichen Typs. Verarbeitet man den STRING nicht als Einheit, 
sondern element- bzw. zeichenweise, dann kann man ihn auch zu den 
Datenstrukturen zählen. 

Datenstruktur Array: Beim eindimensionalen ARRAY sind die Elemente 
in Reihe angeordnet. Beispiel: fünf Wochentagsabsatzmengen 12, 3, 44, 
56 und 21. Der zweidimensionale ARRAY hingegen dehnt sich in zwei 
Richtungen aus: waagerecht in Zeilen (hier vier Zeilen) und senkrecht in 
Spalten (hier drei Spalten). Es gibt nicht nur Integer-Arrays (alle Ele¬ 
mente sind ganzzahlig) und Real-Arrays (alle Elemente sind Kommazah¬ 
len), sondern z.B. auch String-Arrays wie "MO, DI, MI, DO, FR, SA" 
und "HAMMER, MEISSEL, SAEGE" (alle Elemente sind Textworte). 

ARRAY (eindimensional, Vektor, Liste): 

- Komponenten haben alle den gleichen Datentyp 

- Beispiel: ll2 3 44 56 IT 

ARRAY (zweidimensional, Matrix): 

- Komponenten haben alle den gleichen Datentyp 

- Bei spiel mit 4 Zeilen und 3 Spalten: 

33.5 36.7 11.2 
24.0 99.1 74.5 

10.5 10.0 75.3 

99.5 22.6 44.2 


RECORD (Verbund, Satz): 

- Komponenten mit unterschiedlichen Datentypen 

- Beispiel: Kundensatz mit Typen Integer, String und Real: 


101 

(Kundennummer) 

Frei 

(Kundenname) 

65000 

(Kundenumsatz) 
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SET (Menge): 

- Komponenten sind Teilmengen einer Grundmenge 

- Beispiel: () (1) (2) (12) for einen SET OF 1..2 

FILE (Extern auf Diskette abgelegte Datei): 

- Datei als Sammlung zusammengehörender Datensätze 

- Beispiel: über 1000 Datensätze einer Kundendatei 

Vier wichtige Datenstrukturen 

Datenstruktur Record: Im Gegensatz zum ARRAY können im RECORD 
auch Daten verschiedener Datentypen abgelegt sein. Der oben wie¬ 
dergegebene RECORD verbindet drei Komponenten vom Typ INTEGER 
(Kundennummer ganzzahlig), STRING (Kundenname stets Text) und 
REAL (Kundenumsatz als Dezimalzahl) - deshalb auch die Bezeichnung 
"Verbund". In der kommerziellen DV entspricht diese Datenstruktur häu¬ 
fig den Datensätzen bzw. Komponenten von Dateien wie hier der Kun¬ 
dendatei. 

Datenstruktur File: Unter einer Datei versteht mann allgemein eine 
Sammlung von Datensätzen, die getrennt vom Programm auf einem Ex¬ 
ternspeicher (Diskette, Platte, Kassette, Band) als selbständige Einheit 
gespeichert sind. Die Datensätze stellen die Datei-Komponenten dar und 
weisen alle denselben Datentyp auf, d.h. sie sind alle z.B. vom Typ 
RECORD oder alle vom Typ ARRAY. Eine Datei bzw. ein FILE kann 
viel größer sein als der im Hauptspeicher verfügbare Speicherplatz. 

1.3.2.3 Statische und dynamische Datentypen 

Datenstrukturen können statisch oder aber dynamisch vereinbart sein. 
Statische Datentypen behalten während der Programmausführung ihren 
Umfang unverändert bei. Beispiel: Beim Beginn eines Programms wird 
vereinbart, daß ein eindimensionales Feld bzw. Array mit fünf Elemen¬ 
ten zur späteren Aufnahme und Verarbeitung der Absatzmengen für die 
fünf Wochentage Mo - Fr eingerichtet wird. Statisch heißt, daß die An¬ 
zahl der Feldelemente während der Programmausführung gleich bleibt, 
während sich ihre jeweiligen Inhalte ändern können. 
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Statische Datenstrukturen: 

- Werte ändern sich, niemals aber die Anzahl der Komponenten 

- Anzahl der Komponenten und belegter Speicherplatz konstant 

- Unstrukturiert: Char, Integer, Real, String, Boolean, 

Array (Feld), Menge (Set), Verbund (Record) 


Dynamische Datenstrukturen: 

- Werte und Struktur (Anzahl, Aufbau) ändern sich 

- Anzahl und Aufbau der Komponenten ist variabel 

- Belegter Speicherplatz ist variabel 

- Unstrukturiert: Zeiger (Pointer) als Hilfsmittel 

- Strukturiert: Datei (File), Stapel (Stack), Schlange, 

Gekettete Liste (Linked List), Binärbaum 

Einige dynamische Datentypen 

Bei dynamischen Datentypen muß die Anzahl der Komponenten nicht be¬ 
reits beim Schreiben des Programms festgelegt werden, sondern erst im 
Zuge der Programmausführung. Die Datei bzw. das FILE ist stets als dy¬ 
namischer Datentyp vereinbart. Warum? Beim Anlegen einer Kunden¬ 
datei werden z.B. 455 Kunden in 455 Datensätzen auf Diskette erfaßt. 
Diese Zahl von 455 Dateikomponenten muß veränderbar sein, um neue 
Kunden aufnehmen und Ex-Kunden löschen zu können. Da die Ände¬ 
rungen aber "trivialer Natur" sind (so Niklaus Wirth, der Erfinder von 
Pascal), zählt man eine Datei zu den statischen Datenstrukturen. Die dy¬ 
namischen Datenstrukturen können vom Programmierer selbst durch Ver¬ 
knüpfung der standardmäßig angebotenen Datentypen konstruiert wer¬ 
den. Das heißt, daß alle dynamischen Strukturen auf einer tieferen Kom- 
ponenten-Ebene irgendwo wieder statisch sind; Listen (z.B. verkettete 
Liste) und Baumstrukturen gehören dazu. 

Zeiger (auch Pointer, Verweis, Referenz genannt) werden dabei als 
Hilfsmittel zur Strukturierung verwendet. 

Die Rekursion als Ablauf, der sich selbst aufruft bzw. zur Ausführung 
bringt, bildet (generiert) dynamisch lokale Variable und wird deshalb 
häufig im Zusammenhang mit dynamischen Datenstrukturen genannt. 

1.3.2.4 Vordefinierte und benutzerdefinierte Datentypen 

Vordefinierte Typen: Die bislang dargestellten einfachen und strukturier¬ 
ten Datentypen sind vordefiniert in dem Sinne, daß sie als Standardtypen 
vom DV-System bereitgestellt werden. Daneben gestatten einige 
Programmiersprachen wie z.B. Pascal dem Programmierer, selbst eigene 
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Datentypen zu definieren, die dann eben als benutzerdefiniert bezeichnet 
werden. 

Aufzählungstypen: Eine einfache Möglichkeit dafür besteht darin, alle 
Werte aufzuzählen, die der Datentyp umfassen soll - deshalb der Begriff 
Aufzählungstyp. (Mo,Di,Mi,Do,Fr,Sa,So) ist ein solcher Aufzählungstyp 
für die Wochentage wie auch (6800,6830,6900,6907) für einige Postleit¬ 
zahlbezirke. 

Unterbereichstypen: Eine weitere Möglichkeit bietet sich dem Benutzer 
dadurch, daß er einen Datentyp als Unterbereich z.B. eines vordefinier¬ 
ten Datentyps definiert - einen Unterbereichstyp. Drei Beispiele: 0..7 
umfaßt als Unterbereichstyp des Datentyps INTEGER die acht Ganz¬ 
zahlen 0, 1, 2, ... ,7. "A".."Z" umfaßt als Unterbereich des Datentyps 
CHAR alle Großbuchstaben. Di...Fr umfaßt als Unterbereichstyp des obi¬ 
gen Aufzählungstyps vier Werktage. Angegeben wird also stets das klein¬ 
ste und das größte Element des gewünschten Unterbereiches. 

Zeigertypen: Neben den Aufzählungs- und Unterbereichstypen zählen 
auch die Zeigertypen zur Kategorie der benutzerdefinierten Datentypen. 

1.3.2.5 Datentypen bei den verschiedenen Programmiersprachen 

Es hängt vom jeweiligen Programmier-System ab, mit welchen Datenty¬ 
pen Sie arbeiten können. 

Unstrukturierte Programmiersprachen wie BASIC lassen den Programmie¬ 
rer weitgehend allein bei der Bildung von Datenstrukturen, oder anders: 
Sie unterstützen ihn kaum. Bei BASIC fehlen der Verbund bzw. Record 
(was gerade bei der Dateiverarbeitung von Nachteil ist) wie auch die be¬ 
nutzerdefinierten Typen. 

Strukturierte Programmiersprachen stellen die oben angeführten Datenty¬ 
pen bereit. Aber auch hier gibt es Unterschiede. So ist Pascal - was die 
standardmäßige Vorgabe von Datentypen angeht - eher sparsam, aber die 
wenigen Datentypen können sehr flexibel zum Entwurf komplexer 
Datenstrukturen genutzt werden. Sprachen wie ADA und auch Modula 2 
sind weniger sparsam ausgestattet. 

1.3.3 Programmstrukturen 

Die vier Programmstrukturen Folge, Auswahl, Wiederholung und Unter¬ 
programm sind die grundlegenden Ablaufarten der Informatik überhaupt. 
Grundlegend in zweifacher Hinsicht: 

Analyse: Zum einen gelangt man beim Auseinandernehmen noch so um¬ 
fangreicher Programmabläufe immer auf diese vier Programmstrukturen 
als Grundmuster (Analyse von Programmen). 
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Synthese: Zum anderen kann umgekehrt jeder zur Problemlösung erfor¬ 
derliche Programmablauf durch geeignetes Anordnen dieser vier Pro¬ 
grammstrukturen konstruiert werden (Synthese von Programmen). 

Programmstrukturen: 

- 1) Folgestrukturen: 

Erst Anweisung 1 ausführen , dann Anweisung 2, ... 

— 2) Auswahlstrukturen: 

Wenn Bedingung erfüllt, dann Anweisung(en) ausführen 

- 3) Wiederholungsstrukturen: 

Wiederhole Anweisungen, bis Bedingung erfüllt ist 

*- 4) Unterablauf Strukturen: 

Führe Anweisungen aus, unterbreche, führe Unterprogramm 
aus, kehre zurück und fahre im Hauptprogramm fort 

Vier grundlegende Programm- bzw. Ablaufstrukturen 


1.3.3.1 Folgestrukturen 

Linearer Ablauf: Jedes Programm besteht aus einer Aneinanderreihung 
von Anweisungen an den Computer (vgl.Abschnitt 1.1.1). Besteht ein be¬ 
stimmtes Programm nur aus einer Folgestruktur, dann wird Anweisung 
für Anweisung wie eine Linie abgearbeitet. Man spricht deshalb auch 
vom linearen Ablauf bzw. unverzweigten Ablauf, vom Geradeaus-Ablauf 
oder von einer Sequenz. 

Ablaufbeispiel mit vier Darstellungsformen: Das Beispiel zeigt ein Pro¬ 
gramm, bei dem fünf Anweisungen in Folge ausgeführt werden: Über 
Tastatur wird ein Rechnungsbetrag eingegeben, um nach der Berechnung 
den Skonto- und Überweisungsbetrag als Ergebnis am Bildschirm auszu¬ 
geben. Das Ablaufbeispiel wird in vier Darstellungsformen wie¬ 
dergegeben: 

- als Abi auf reget (verbale Kurzform) 

- als Entwurf (algorithmischer Entwurf, Pseudocode, Entwurfsprache) 

- als Dialog Protokoll (Dialog zwischen Benutzer und Computer) 

- als Struktogramm (Nassi-Shneiderman-Diagramm) 
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1) Allgemeine Regel: 

Erst Anweisung 1 ausführen, dann Anweisung 2, dann ... 

2) Beispiel in Entwurf spräche: 

Ausgabe Fragestellung 
Eingabe RECHNUNGSBETRAG 
berechne SKONTOBETRAG 
bereichne UEBERWEISUNGSBETRAG 
Ausgabe der Ergebnisse 

3) Beispiel als Dialog Protokoll: 

RUN 

Rechnungsbetrag eintippen: 

200 

Skontoabzug: 6 DM 
Überweisung: 196 DM 

4) Ablauf als Struktogramm: 


Anweisung 1 _ 

Anweisung 2 _ 

Anweisung 3 _ 

Anweisung 4 _ 

Anweisung 5 _ 

Vier Darstellungsformen eines Ablaufs mit Folgestruktur 

Entwurf spräche: Um unabhängig von den Formalitäten der vielen Pro¬ 
grammiersprachen Programmabläufe beschreiben zu können, verwenden 
wir eine einfache Entwurfsprache (auch algorithmischer Entwurf oder 
Pseudocode genannt), die umgangssprachlich formuliert wird. Im Beispiel 
werden die umgangssprachlichen Anweisungsworte "Ausgabe", "Eingabe" 
und "berechne" verwendet. Die Beschreibung von Abläufen mittels einer 
Entwurfsprache ist in der Informatik weit verbreitet. 

Das Dialog Protokoll zum Ablaufbeispiel gibt den "Dialog" zwischen Be¬ 
nutzer (der Werte eintippt) und Computer (der Information ausgibt) wie¬ 
der, wie er bei der Programmausführung am Bildschirm erscheint bzw. 
protokolliert wird. Im Beispiel gibt der Benutzer den Befehl RUN ein, 
worauf der Computer mit der Ausgabe "Rechnungsbetrag eintippen:" ant¬ 
wortet; nach der Benutzereingabe von 200 rechnet der Computer (im 
Dialogprotokoll nicht sichtbar) mit 3%, um dann den Skonto- und den 
Überweisungsbetrag in zwei Ausgabezeilen am Bildschirm anzuzeigen. 

Struktogramm: Nach dem Entwurf und dem Dialogprotokoll ist das Pro¬ 
grammbeispiel zeichnerisch als Struktogramm dargestellt. Die Sinnbilder 
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von Struktogrammen sind nach DIN 66261 genormt. Für jede Programm¬ 
struktur gibt es ein gesondertes Strukturblock-Sinnbild. 

1.3.3.2 Auswahlstrukturen 

Zweiseitige Auswahl Struktur: Die Auswahlstrukturen dienen dazu, aus ei¬ 
ner Vielzahl von Möglichkeiten bestimmte Fälle auszuwählen: In der fol¬ 
genden Abbildung sind es die beiden Fälle "Skontoabzug bei Bezahlung 
in weniger als acht Tagen nach Rechnungserhalt (Bedingung TAGE<8 er¬ 
füllt)" sowie "Zahlung rein netto bei späterer Überweisung (Bedingung 
TAGE<8 nicht erfüllt)". Dieses Beispiel bezeichnet man deshalb auch als 
Zweiseitige Auswahl(-struktur). 

1) Allgemeine Regel: 

Wenn Bedingung 1 erfüllt ist, dann führe Anweisung 2 aus, sonst führe 
Anweisung 3 aus, um dann gemeinsam fortzufahren. 

2) Beispiel in Entwurf spräche: 

Ausgabe der Fragestellung 
wenn TAGE kleiner 8 
dann überweise mit Skonto 
sonst überweise rein netto 
Ende-wenn 

3) Zwei Ausführungsbeispiele als Dialogprotokolle: 

RUN 

Anzahl der Tage »? 

6 _ 

Skontoabzug möglich 
RUN 

Anzahl der Tage *? 

14 

Zahlung rein netto 

4) Ablauf als Struktogramm: 


Anweisung 1 


Bedingung 


nein - 

-- 

ja 

Anweisung 2: 


Anweisung 3: 

Netto-Fall 


Skonto-Fall 
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5) Allgemeiner Ablauf in Entwurf spräche: 

Anweisung(en) 1 
wenn Bedingung 1 erfüllt 
dann Anweisung(en) 2 
sonst Anweisung(en) 3 
Ende-wenn 

Fünf Darstellungsformen eines Ablaufs mit zweiseitiger Auswahlstruktur 

Einseitige Auswahlstruktur: Neben der zweiseitigen Auswahl gibt es zwei 
weitere Auswahltypen: die einseitige Auswahl mit nur einem Fall und die 
mehrseitige Auswahl bzw. Fallabfrage mit mehr als zwei Fällen. Bei der 
einseitigen Auswahl ist ein Zweig leer: 



Einseitige Auswahlstruktur als Struktogramm 


Mehrseitige Auswahl Struktur: Bei der mehrseitigen Auswahl werden meh¬ 
rere Fälle unterschieden; im folgenden Beispiel sind es drei Fälle. Das 
Struktogramm zeigt, daß die mehrseitige Auswahl als Schachtelung von 
zweiseitigen Auswahlen aufgefaßt werden kann. 



Mehrseitige Auswahlstruktur als Struktogramm 


Auswahlstrukturen werden auch als Alternativstrukturen, Abläufe mit 
(Vorwärts-)Verzweigungen bzw. als Selektion bezeichnet. 

1.3.3.3 Wiederholungsstrukturen 

Schleifen: Wiederholungsstrukturen führen zu Programmschleifen, die 
mehrmals durchlaufen werden. In dem unten wiedergegebenen Beispiel 
wird die Anweisungsfolge "Eingabe", "berechne", "berechne" und "Ausga- 
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be" wiederholt durchlaufen, bis die Bedingung RECHNUNGSBETRAG = 
0 erfüllt ist; diese Bedingung wird über die Tastatur als Signal zum Be¬ 
enden der Schleife eingetippt. Wiederholungsstrukturen werden auch als 
Repetitionen und Iterationen bezeichnet. 

1) Allgemeine Regel: 

Wiederhole die Anweisungen 1, 2, 3, ... so lange, bis eine 
bestimmte Bedingung zum Beenden der Schleife erfüllt ist. 

2) Beispiel in Entwurf spräche: 

Ausgabe Überschriftszeile 
wiederhole 

wenn RECHNUNGSBETRAGS dann Ende 
berechne SKONTOBETRAG 
berechne UEBERWEISUNGSBETRAG 
Ausgabe Ergebnis 
Ende-wiederhole 

Ausgabe Hinweis für Programmende 

3) Ausführungsbeispiel als Dialog Protokoll: 

RUN 

Programm mit Schleife 
Rechnungsbetrag =? 

100 

Überweisungsbetrag: 97 DM 
Rechnungsbetrag =? 

200 

Uberweisungsbetrag: 194 DM 
Rechnungsbetrag ■? 

0 

Programmende. 

4) Ablauf als Slruktogramm: 


Anweisung(en) 


Anweisungen 

‘\Ende- Bedingung 

Anweisung(en) 
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5) Allgemeiner Ablauf in Entwurf spräche: 
Anweisung 0 
wiederhole 
Anweisung 1 
Anweisung 2 


Anweisung n 

wenn Bedingung erfüllt ist, dann Schleifenende 
Anweisung n+1 
Anweisung n+2 


Ende-wiederhole 

Fünf Darstellungsformen eines Ablaufs mit Wiederholungsstruktur 

Schleifentypen: Auf die verschiedenen Schleifentypen wie 

- abweisende und nicht-abweisende Schleife 

- Zählerschleife 

- offene und geschlossene Schleife 

gehen wir in Abschnitt 3.1.3 an Beispielen ausführlicher ein. 

1.3.3.4 Unterprogrammstrukturen 

Unterprogrammstrukturen bieten sich immer dann an, wenn eine Auf¬ 
gabe während eines Programmablaufes mehrmals benötig wird, so z.B. die 
im Beispiel wiedergegebene Aufgabe "Runde kaufmännisch auf zwei 
Dezimalstellen". Auch zur übersichtlichen Gliederung eines komplexen 
Programmmes und zur Programmentwicklung im Team (jeder Mitarbeiter 
entwickelt einen Teil des Programmes) werden Unterprogramme ver¬ 
wendet. 

Wozu Unterprogramme bzw. Unterabläufe bilden? 

-1. Ein (Unter-)Ablauf wird mehrmals benötigt und aufgerufen 

-2. Übersichtliche Gliederung eines umfangreichen Programms 

^-3. (Unter-)Programme getrennt entwickeln und später binden 

Drei Gründe zur Verwendung von Unterprogrammen 
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1) Allgemeine Regel: 

Führe Anweisungen Al aus, unterbreche Tätigkeit A, um Anwei 
sungen B auszuführen, kehre zurück und fahre mit der Ausfüh¬ 
rung der Anweisungen A2 fort (A im Haupt- und B im Unter¬ 
programm). 

2) Beispiel in Entwurf spräche: 

Beginn Hauptprogramm 
Eingabe RECHNUNGSBETRAG 
berechne SKONTOBETRAG 
Aufruf Unterprogramm RUNDEN 
berechne UEBERWEISUNGSBETRAG 
Ausgabe ERGEBNIS 
Ende Hauptprogramm 

Beginn-Unterprogramm 
runde BETRAG auf zwei Stellen 
ersetze BETRAG durch den gerundeten BETRAG 
Ende-Unterprogramm 

Zwei Darstellungsformen eines Ablaufs mit Unterprogrammstruktur 

Prozeduren und Funktionen: Auf die möglichen Unterprogrammarten wie 
Prozeduren und Funktionen gehen wir in Abschnitt 3.1.4 konkret an Bei¬ 
spielen ein. 

1.3.3.5 Mehrere Strukturen in einem Programm 

Die meisten Programme umfassen natürlich mehrere dieser Strukturen. 
Dabei sind zwei Anordnungsprinzipien zu unterscheiden. Programmstruk¬ 
turen können entweder hintereinander oder aber geschachtelt angeordnet 
sein. 

Anordnung hintereinander: Mit der jeweils folgenden Struktur wird erst 
dann begonnen, nachdem die gerade in Ausführung befindliche Struktur 
beendet wurde. 

Anordnung geschachtelt: Mit der äußeren Struktur kann erst fortgefahren 
werden, nachdem die innere Struktur vollständig ausgeführt wurde. Teil¬ 
weises Einschachteln bzw. Überlappen von Programmstrukturen ist folg¬ 
lich nicht erlaubt. 

1.3.4 Datenstrukturen und Programmstrukturen als Software-Bausteine 

In den beiden vorangegangenen Abschnitten wurden die wesentlichen 
Datenstrukturen (was wird verarbeitet?) sowie Programmstrukturen (wie 
ist zu verarbeiten?) allgemein dargestellt. Diese Strukturen mit ihren 
unterschiedlichen Ausprägungen können insofern als Software-Bausteine 
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aufgefaßt werden, als aus ihnen bausteinartig die zur Lösung eines Pro¬ 
blems erforderlichen Abläufe gebildet werden können. 



Daten- und Programmstrukturen als Software-Bausteine 


Wie werden Daten(-strukturen) im Hauptspeicher abgelegt und verarbei¬ 
tet? Wie werden Programm(-strukturen) abgespeichert? Wie sind Pro¬ 
gramme aufgebaut? Zu diesen Fragen kommen wir nun. 

1.3.4.1 Modell des Hauptspeichers RAM als Regalschrank 

Adressen: Der Hauptspeicher (auch Intern- und Arbeitsspeicher genannt) 
ist als Speicher RAM bzw. Schreib-/Lese-Speicher vorgesehen. Im 
Hauptspeicher befinden sich die zur Verarbeitung benötigten Daten und 
Programme. Den RAM können wir uns als Regalschrank mit sehr vielen 
Speicherstellen vorstellen, wobei in jede Stelle je ein Zeichen abgelegt 
werden kann. Ein RAM mit 64 KB (vgl. Abschnitt 1.2.3.4) umfaßt genau 
65536 solcher Speicherstellen (64*1024), die von 0 an fortlaufend durch¬ 
numeriert sind. Die Nummern 0,1,2, ... ,65535 stellen die tatsächlichen 
Adressen der Speicherstellen dar. 

Name als symbolische Adresse: Soll ein Rechnungsbetrag über 200.50 DM 
von Adresse 2210 oder von Adresse 58934 an gespeichert werden? Um 
diese tatsächlichen Adressen muß sich der Benutzer nicht kümmern. Wie 
allen Daten gibt man auch dem Rechnungsbetrag einen Namen, z.B. 
BETRAG. Dieser Name BETRAG dann als symbolische Adresse zur 
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Speicherung dient. Der Computer sucht sich selbständig einen für 
BETRAG freien Speicherplatz und legt die 200.50 dorthin ab. Wo soll das 
zugehörige Programm abgespeichert werden? Auch darum braucht sich 
der Benutzer nicht zu kümmern. Man gibt dem Programm einen Namen 
wie z.B. RECHNUNG 1 , und der Computer reserviert selbständig die 
notwendige Anzahl von Speicherstellen und bestimmt dann einen geeig¬ 
neten Speicherort. Daten wie Programme werden also über ihre Namen 
angesprochen. 

Modell des RAM als Regalschrank: Einige Regale sind leer. In ihnen ist 
nichts gespeichert. Auf anderen Regalen aber befinden sich Schachteln, 
und zwar Daten-Schachteln mit Daten als Inhalt sowie Programm- 
Schachteln mit Anweisungen als Inhalt. Jede Schachtel ist mit dem von 
uns jeweils gewählten Namen beschriftet. Durch Angabe dieser Namen 
ist es uns möglich, Inhalte von Schachteln zu lesen und zu ändern. Für 
die ausreichende Größe einer Schachtel (= Anzahl von Speicherstellen) 
sowie das passende Regal (= tatsächliche Adresse) sorgt der Computer 
selbst. 


Regal 0: 
Regal 1: 
Regal 2: 


Regal n 

Modell des RAM als Regalschrank 
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Daten-Schachtel Programm-Schachtel 

BETRAG RECHNUNG1 


1.3.4.2 Daten als Variablen und Konstanten vereinbaren 

Daten sprechen wir mit Namen an. Dies gilt für veränderliche bzw. 
variable Daten, also für Variablen, wie auch für feste bzw. konstante 
Daten, also für Konstanten. 

Variablen-Vereinbarung: Das Einrichten von Daten-Schachteln bezeichnet 
man als Deklaration oder als Vereinbarung. Für eine Variable müssen wir 
vereinbaren, welchen Namen (z.B. den Namen BETRAG) und welchen 
Datentyp (z.B. Dezimalzahl bzw. REAL) sie haben soll. Mit dem Daten¬ 
typ wird der Wertebereich angegeben. Den Inhalt als den Wert der Vari¬ 
ablen können wir dann später im Rahmen des jeweiligen Wertebereichs 
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(z.B. der Dezimalzahlen) beliebig verändern. Jede Variable weist somit 
die drei Komponenten auf: 

- Name (“Speicheradresse) 

- Datentyp (= Wertebereich) 

- Inhalt bzw. Wert (= augenblicklicher Schachtelinhalt) 

Schachteln können sehr klein (wie die für den BETRAG) oder auch sehr 
umfangreich (wie z.B. ein String-Array mit 100 Zeilen und mit fünf 
Spalten für 100*5=500 Artikelmengen) sein. 

1) Variable BETRAG vom Typ 'Dezimalzahl’ vereinbart: 

BETRAG als Name- 

Dezimalzahl als Datentyp- 

200.50 als derzeitiger Wert bzw. Inhalt der Variablen BETRAG 

2) Vereinbarung von BETRAG in Entwurf spräche: 

BETRAG: Dezimalzahl bzw. REAL 
Drei Kennzeichen einer Variablen: Name, Datentyp und Wert (Inhalt) 

Konstantenvereinbarung: Für eine Konstante müssen wir einen Namen 
vereinbaren (z.B. den Namen S1 für den Skontosatz) und einen konstan¬ 
ten Wert (z.B. 3 %). 

1) Konstante S1 mit ganzer Zahl 3 vereinbart: 

S1 als Name- 

3 als konstanter Wert 

2) Vereinbarung in Entwurf spräche: 

S1 = 3 

Zwei Kennzeichen einer Konstanten: Name und Wert (Inhalt) 

Zuerst vereinbaren, dann verarbeiten: Die Vereinbarungen von Variablen 
und von Konstanten werden vom Programmierer im Rahmen der Pro¬ 
grammerstellung getroffen; sie stehen am Anfang des Programmtextes. 
Der Computer muß eine Daten-Schachtel zuerst einrichten, um dann mit 
ihr gemäß den im Programm weiter angegebenen Anweisungen arbeiten 
zu können. 
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1.3.4.3 Programm mit Vereinbarungsteil und Anweisungsteil 

Jedes Programm weist neben dem Programmnamen zwei weitere Bestand¬ 
teile auf: den Vereinbarungsteil und den Anweisungsteil. Anstelle von 
Vereinbarung spricht man auch von Deklaration. 

Der Programmname dient zum Aufrufen des Programms. Das Programm 
kann dabei im RAM als dem internen Speicher wie auch auf Diskette 
bzw. Festplatte als externen Speichereinheiten abgelegt sein. 

Im Vereinbarungsteil legt der Programmierer fest, welche Variablen und 
Konstanten einzurichten sind. In Abschnitt 3 werden wir sehen, daß ggf. 
auch selbstdefinierte Datentypen sowie Unterprogramme (Prozeduren und 
Funktionen) vereinbart werden können. 

In den Programmiersprachen wird unterschiedlich vereinbart. So muß in 
Pascal der Vereinbarungsteil in jedem Fall programmiert werden. In 
BASIC können Vereinbarungen auch durch die Wahl der Variablen ge¬ 
troffen werden. Aus Gründen der Programmübersicht sollte auch in 
BASIC explizit vereinbart werden (REM-Anweisungen). 

1) Welcher Name hat das Programm, und damit: Wo gespeichert? 

Programm. 

2) Was wird verarbeitet? Welche Bedeutung haben die Namen? 

Vereinbarungsteil mit Deklarationen 

- von Konstanten 

- von selbstdefinierten Datentypen 

- von Variablen 

- von Funktionen 

- von Prozeduren 

3) Wie ist zu verarbeiten? Welche Anweisungen sind auszuführen? 

Anweisungsteil mit Anweisungen 

- zur Eingabe (z.B. Tastatureingabe) 

- zur Ausgabe (z.B. auf den Drucker) 

- zur Wertzuweisung (Zuweisungszeichen bzw. ":*") 

- zur Ablaufsteuerung (z.B. Schleife mit FOR) 

Drei Bestandteile eines Programmes: Name, Vereinbarungsteil und An¬ 
weisungsteil 

Der Anweisungsteil als Folge von Anweisungen an den Computer enthält 
das eigentliche Programm. Auf die einzelnen Anweisungsarten zur Ein¬ 
gabe, Ausgabe, Wertzuweisung und Ablaufsteuerung gehen wir in Ab¬ 
schnitt 3.1 an Beispielen ein. 
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1.3.5 Datei und Datenbank 

Eine Datei stellt die typische Datenstruktur zur langfristigen Speicherung 
von Massendaten in der kommerziellen DV dar. Am Beispiel der in Ab¬ 
schnitt 1.3.2.2 bereits angesprochenen Kundendatei wollen wir auf die 
Dateiverarbeitung eingehen. Andere Begriffe für Dateiverarbeitung: Da¬ 
teiverwaltung, File Handling (File für Datei). Ein Hinweis: Unterscheidet 
man zwischen Data File (Datendatei) und Program File (Programmdatei), 
dann ist im folgenden mit dem Begriff "Datei" (ohne weiteren Zusatz) die 
Datendatei gemeint. 

Kundendatei als Beispiel: Die Kundendatei ist bewußt sehr einfach auf- 
gebaut: Zu jedem der derzeit 1580 Kunden einer Handelsfirma werden 
die drei Angaben NUMMER, NAME und UMSATZ als Kundendatei auf 
einem Externspeicher abgelegt. Man sagt auch: Die Kundendatei umfaßt 
derzeit 1580 Datensätze (Kundensätze bzw. Sätze), wobei jeder Satz aus 
drei Datenfeldern als Komponenten besteht. Für diese Felder wiederum 
sind Variablen mit unterschiedlichen Datentypen vereinbart: eine 
Variable namens NUMMER für die Kundennummer ganzzahlig, eine 
Variable NAME als Text und eine Variable UMSATZ für den getätigten 
DM-Umsatz vom Datentyp Dezimalzahl. Die Datensätze stellen jeweils 
Verbünde (Records) dar. Der Datensatz hat den Namen KUNDSATZ, 
und die Datei heißt KUNDDATEI. Wie die in der Abbildung dargestell¬ 
ten vier Sätze zeigen, sollen die Kunden nach Kundennummern aufstei¬ 
gend sortiert gespeichert sein. Mit (1),(2),... werden die Datensatznum¬ 
mern innerhalb der Datei angegeben. 

1) Vier Datensätze der Kundendatei namens KUNDDATEI ausgedruckt: 


(1) 

101 

Frei 

6500.00 

(2) 

104 

Maucher 

295.60 

(3) 

109 

Hildebrandt 

4590.75 

(4) 

110 

Amann 

1018.75 

(5) 





2) Datensatz namens KUNDSATZ als Verbund vereinbart: 

KUNDSATZ: Verbund bzw. Record 
NUMMER: Ganzzahl 
NAME: Text 
UMSATZ: Dezimalzahl 
Ende-Verbund 
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3) Vereinbarung der Datei in Entwurf spräche: 

KUNDDATEI: Datei mit Datensätzen vom Typ KUNDSATZ 
Inhalt und Vereinbarungen zur Kundendatei namens KUNDDATEI 

Dateihierarchie: Eine Datei umfaßt mehrere Datensätze. Jeder Satz wie¬ 
derum hat mehrere Datenfelder. Jedes Feld besteht aus mehreren Zeichen 
und jedes Zeichen wird als Byte bzw. Kombination von 8 Bits gespei¬ 
chert. Jeder Datensatz ist gleich aufgebaut und gleich lang (konstante 
Datensatzlänge für die meisten Dateisysteme). Die Überordnung Datei - 
Satz - Feld - Zeichen bezeichnet man auch als Dateihierarchie. 

Datei (File), z.B. KUNDDATEI 

Datensatz (Record), z.B. 1580 Sätze 

Datenfeld (Field), z.B. drei Felder NUMMER, NAME, UMSATZ 

Zeichen (Character), Byte, z.B. "R" als 2. Zeichen von "FREI" 

Bit (Binary Digit:0 oder 1), z.B. 0 als 1. Bit im Byte 

01010010 für "R" 

Hierarchischer Aufbau einer Datei: Datei-Satz-Feld-Zeichen-Bit 

1.3.5.1 Zugriffsart, Speicherungsform und Verarbeitungsweise 

Zwei Zugriffsarten: Auf eine Datei wird stets datensatzweise zugegrif¬ 
fen, sei es in den RAM hinein (Lesen = Eingabe) oder aus dem RAM 
hinaus (Schreiben = Ausgabe). Entsprechend spricht man vom lesenden 
Zugriff (vom Externspeicher in den RAM) oder vom schreibenden Zu¬ 
griff (vom RAM auf den Externspeicher). Ist ohne weiteren Zusatz vom 
Zugriff die Rede, so meint man damit das Lesen von Sätzen. Zwei Zu¬ 
griffsarten sind zu unterscheiden: der direkte und der indirekte Zugriff. 
Der direkte Zugriff läßt sich mit der Schallplatte vergleichen: Will man 
z.B. das siebte Musikstück hören, kann der Tonarm direkt bei diesem ge¬ 
wünschten Stück aufgesetzt werden. Entsprechend kann bei der Platte 
(Magnetplatte, Diskette) in der DV ein bestimmter Datensatz direkt 
durch Angabe seiner Satensatznummer als Adresse bzw. "Hausnummer" in 
den RAM gelesen werden. 

Der indirekte Zugriff ist - wie beim Tonband - umständlicher: Das Ton¬ 
band muß z.B. zum siebten Musikstück gespult werden; wir können nur 
in der Reihenfolge zugreifen, in der früher einmal aufgenommen wurde. 
Dementsprechend muß in der DV Datensatz für Datensatz gelesen wer¬ 
den, bis z.B. der siebte Kunde gefunden ist. 
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Wir halten fest: Beim Band (Magnetband, Kassette) kann nur indirekt auf 
den Datensatz einer Datei zugegriffen werden, während bei der Platte 
(Magnetplatte, Winchesterplatte, Diskette) auch direkt zugegriffen werden 
kann. Die Platte wird deshalb auch Direktzugriff-Speicher genannt, im 
Gegensatz zum Band als sequentiellem Speicher (Sequenz = Reihenfolge). 

- Zwei Zugriffsarten: indirekt, direkt 

- Vier Speicherungsformen: seriell, gestreut, indiziert, verkettet 

- Zwei Verarbeitungsweisen: sortiert, unsortiert 


Zugriffsarten 



, 





Hauptspeicher RAM 


Externspeicher 

Diskette, 

Festplatte 

> 


Speicherungsformen 

/ 









Verarbeitungsweisen 

sortiert, 

unsortiert 


Zugriff, Speicherung und Verarbeitung einer Datei 

Der Begriff der Speicherungsform bezieht sich auf das Abspeichern bzw. 
Schreiben von Sätzen aus dem RAM auf die Datei. 

1. Serielle Speicherungsform: 

Seriell speichern heißt starr fortlaufend speichern: Der nächste Neu¬ 
kunde wird als nächster Kunde hinter den zuvor gerade geschriebenen 
Datensatz gespeichert. 

2. Gestreute Speicherungsform. 

Gestreut speichern heißt, daß die Sätze zufällig über die Plattenober¬ 
fläche hinweg streuend abgelegt werden. Zur Erklärung folgendes Bei¬ 
spiel: In einem Betrieb seien die Kundennummern 

101,104,109,110,...,50000 vergeben. Würde man nach dem Verfahren 
"Kundennummer ergibt Datensatznummer" vorgehen, so würde man auf 
der Platte 50000 Speicherorte für die nur 1580 Kundensätze zu reservie¬ 
ren haben - wahrlich verschwenderisch. Was tun? Man versucht, die 
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Anzahl der Speicherorte durch die Wahl eines geeigneten Adreßrech¬ 
nungsverfahrens zu verdichten, wie z.B. mit dem Divisions-Rest-Verfah¬ 
ren. Das führt dann dazu, daß Kunde 48236 als 237. Satz und Kunde 
3973 als 1831. Satz abgelegt ist, daß also gestreut gespeichert ist. Der 
Nachteil solcher Verfahren: Für mehrere Kundennummern kann sich ein 
und dieselbe Datensatznummer ergeben (Problem der Überläufer). 

3. Indizierte Speicherungsform: 

Nach der seriellen Speicherung und der gestreuten Speicherung nun zur 
indizierten Speicherung als dritter Form. Zur Erklärung folgendes Bei¬ 
spiel: Zusätzlich zu unserer Kundendatei wird in einer Indexdatei zu je¬ 
dem Namen die Datensatznummer gespeichert, unter der dieser Name in 
der Kundendatei zu finden ist: Kunde MAUCHER so z.B. als zweiter 
Satz. Wie die Kundendatei (zur Unterscheidung Haupt- oder Datendatei 
genannt) vier Kundensätze hat, so hat auch die Indexdatei vier Index¬ 
sätze. Dann wird diese Indexdatei nach Namen sortiert abgespeichert. 
Möchte man sich nun später alle Kunden nach Namen sortiert aus- 
drucken lassen, so geht man wie folgt vor: 

a) Indirekter Zugriff auf den jeweils nächsten Indexsatz der sortierten 

Indexdatei. 

b) Direkter Zugriff auf den Kundensatz, dessen Datensatznummer ge¬ 

rade zuvor aus der Indexdatei gelesen wurde. 

c) Mit a) fortfahren, bis Ende der Indexdatei erreicht ist. 

1. Zugriff indirekt auf die Indexdatei bzw. auf den 

nächsten Indexsatz (Sazunummer S gelesen). 

2. Zugriff direkt auf die Datendatei bzw. auf den Satz 

mit Satznummer S. 

Index-sequentieller Zugriff erfolgt stets in zwei Schritten 

Eine Indexdatei kann als Inhaltsverzeichnis aufgefaßt werden, das - ähn¬ 
lich den Seitenangaben in einem Buchinhaltsverzeichnis - die Satznum¬ 
mern der zugehörigen Datendatei anzeigt (indizieren bedeutet anzeigen). 
Zu der Kundendatei sind zumindest drei Indexdateien möglich: je eine 
für die NUMMER, für den NAMEn und für den UMSATZ. 
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1) Kundendatei mit den ersten vier Datensätzen: 


101 

Frei 

6500.00 

104 

Maucher 

295.60 

109 

Hildebrandt 

4590.75 

110 

Amann 

1018.75 


2) Indexdatei für Ordnungsbegriff NAME unsortiert: 


Frei 

1 

Maucher 

2 

Hildebrandt 

3 

Amann 

4 


3) Indexdatei für NAME sortiert: 


Amann 

1 4 

Frei 

1 

Hildebrandt 

3 

Maucher 

2 


Kundendatei als Datendatei mit zwei Indexdateien 

Schneller Zugriff über Index: Das Anlegen einer Indexdatei gestattet 
einen schnellen Zugriff sowie vielseitige Verarbeitungsarten. Zunächst 
zur Geschwindigkeit: In der kaufmännischen Praxis ist ein Kundensatz 
mit z.B. 300 Zeichen viel länger als unser Beispielsatz, der Indexsatz hin¬ 
gegen unverändert kurz, da er ja nur die beiden Komponenten NAME 
als Schlüsselfeld und SATZNR als Adreßfeld umfaßt. Das Durchsuchen 
oder Sortieren einer Indexdatei geht somit schneller vonstatten als das der 
zugehörigen Datendatei. Zumal die Indexdatei aufgrund ihres geringen 
Umfanges dabei komplett im Hauptspeicher gehalten werden kann, wäh¬ 
rend die Datendatei aufgrund ihrer Größe zum Sortieren wiederholt ein- 
und ausgelagert werden muß. 

Vielseitige Verarbeitung über Index: Ein zweiter Vorteil besteht in der 
Vielseitigkeit: Hat man zu den Schlüsseln NAME, UMSATZ, PLZ, 
WOHNORT, VERTRETER, RABATT, KUNDESEIT, OFFENERPO¬ 
STEN je eine Indexdatei sortiert angelegt, so können die Kunden jeder¬ 
zeit nach diesen acht Ordnungsbegriffen sortiert in einer Übersicht aus¬ 
gedruckt werden. Ebenso kann ein bestimmter Kunde über schnelle 
Suchverfahren wie etwa über das "binäre Suchen" am Bildschirm ange¬ 
zeigt werden. 
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4. Verkettete Speicherungsform: 

Als vierte Speicherungsform wurde oben die verkettete Speicherung ge¬ 
nannt. Dazu folgendes Beispiel: Der Kundensatz wird um zwei Datenfel¬ 
der erweitert, in denen Zeiger bzw. Pointer gespeichert sind, die auf den 
jeweils nächsten Kundensatz zeigen. Das erste Zeigerfeld verkettet die 
Sätze nach Namen aufsteigend sortiert: Nach dem Lesen von AMANN (A 
für Ankeradresse) verweist Zeigerfeldinhalt 1 auf FREI, der dann einge¬ 
lesen wird; dann zeigt Zeiger 3 auf HILDEBRANDT als drittem Satz, 
worauf mit Zeiger 2 auf MAUCHER zugegriffen wird, dessen Zeiger 0 
das Ende der Kette signalisiert. Über diese Kette 3-0-2-1 können die 
Kunden rasch alphabetisch geordnet auf gelistet werden. Die zweite Kette 
0-4-1-3 verkettet Kunden nach deren Umsatz geordnet. 


Kunden¬ 

Kunden¬ 

Kunden¬ 

Zeiger für 

Zeiger f 

nummer: 

name: 

umsatz: 

Name: 

Umsatz: 

101 

Frei 

6500.00 

3 

0 

104 

Maucher 

295.60 A 

0 

4 

109 

Hildebrandt 

4590.05 

2 

1 

110 

Amann A 

1018.75 

1 

3 


Kundendatei mit Verkettung über zwei Zeigerfelder (A=Anker) 

Logische Ordnungen: Das Beispiel zeigt, daß über die verkettete Spei¬ 
cherung beliebig viele logische Ordnungen gebildet werden können, ohne 
die Datensätze dazu physisch auf dem Externspeicher umspeichern zu 
müssen. 

Sortierte Verarbeitungsweise: 

Nach den zwei Zugriffsarten und den vier Speicherungsformen nun zu 
den zwei oben unterschiedenen Verarbeitungsweisen, zur sortierten und 
zur unsortierten Verarbeitung: 

Eine Datei sortiert verarbeiten heißt, daß eine physisch oder logisch zu¬ 
sammenhängende Folge von Datensätzen verarbeitet wird, wie z.B. beim 
Auflisten des gesamten Dateiinhaltes oder bei der Gehaltsabrechnung für 
alle Angestellten eines Betriebes. Wenn die Bewegungsdatei (Lagerzu¬ 
gänge und -abgänge) genauso sortiert vorliegt wie die Bestandsdatei (Ar¬ 
tikel insgesamt), so wird von einer sortierten Verarbeitung gesprochen. 

Unsortierte Verarbeitungsweise: 

Bei der unsortierten Verarbeitung werden einzelne Sätze einer Datei ggf. 
mehrmals direkt angesprochen, wie z.B. beim Verarbeiten einzelner Kun¬ 
denaufträge oder beim Auskunftserteilen über den derzeitigen Konto¬ 
stand. 
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1.3.5.2 Vier Organisationsformen von Dateien 

Je nach Kombination von Zugriffsart (Eingabe eines Datensatzes vom 
Externspeicher in den Hauptspeicher RAM), Speicherungsform (Ausgabe 
vom RAM auf den Externspeicher) und Verarbeitungsweise (Verarbei¬ 
tung intern im Hauptspeicher) kann eine Vielzahl von Datei- 
Organisationsformen unterschieden werden. Folgende vier Organisations¬ 
formen werden heute am häufigsten genannt - wenn auch kaum einheit¬ 
lich ausgelegt. 

Sequentielle Datei: 

- Indirekter Zugriff, serielle Speicherung und sortierte 
Verarbeitung bei zumeist sortierter Speicherungsfolge. 

- Typische Banddatei (Magnetband, Kassette). 

Direktzugriff-Datei: 

- Direkter Zugriff, oft gestreute Speicherung und unsortierte 
Verarbeitung. 

- Typische Plattendatei (Magnetplatte, Diskette, Festplatte). 

- Bezeichnungen: Random-Datei, Relative Datei. 

Index-sequentielle Datei: 

- Kombination von sequentieller - und Direktzugriff-Datei. 

- Alle Zugriffsarten, Speicherungsformen und Verarbeitungs¬ 
weisen möglich. 

- Kennzeichnend ist die indizierte Speicherung. 

Verkettete Datei: 

- Indirekter Zugriff, Verkettete Speicherungsform bei 
sortierter Verarbeitung. 

Vier grundlegende Organisationsformen von Dateien 

Die rein sequentiell organisierte Datei wird mit der zunehmenden Ver¬ 
breitung von Wechselplatte, Festplatte und Diskette immer mehr durch 
die Direktzugriff-Datei und die index-sequentielle Datei verdrängt. 

1.3.5.3 Grundlegende Abläufe auf Dateien 

Die Dateiverarbeitung umfaßt viele Abläufe: So müssen Daten zunächst 
einmal erfaßt bzw. computerlesbar gemacht wrden, um sie dann auf ei¬ 
nem Externspeicher abzulegen, später wieder zu suchen, abzuändern, 
auszudrucken, zu löschen usw. Zusammenfassend können wir hierzu elf 
grundlegende Abläufe zum Einrichten, Verwalten und Auswerten von 
Dateien unterscheiden. Jedes kommerzielle Datei-System mit dem An- 
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Spruch auf eine universelle Verwendbarkeit wird diese Abläufe bereit¬ 
stellen. 

Vier Dateiarten: In Abschnitt 1.3.1.1 wurden Bestands- und Bewegungs¬ 
daten sowie Stamm- und Änderungsdaten unterschieden. Entsprechend 
gibt es dem Inhalt nach vier Dateiarten: 

- die Bestandsdatei (z.B. Artikelbestandsdatei) 

- die Bewegungsdatei (z.B. Zu-/Abgänge von Artikellagerbeständen) 

- die Stammdatei (z.B. Kundenstammdatei) 

- die Änderungsdatei (z.B. Anschriftsänderung von Kunden). 

1) Anlegen: 

Datei(-struktur) auf einem Externspeicher leer einrichten. 

2) Neu schreiben: 

Datensätze erfassen und neu in die Datei hinzufügen. 

3) Lesen: 

Einen oder mehrere Sätze in den RAM lesen und dann anzeigen. 

4) Bewegen: 

Zu- und Abgänge mengenmäßig (Lagerbestandsfortschreibung) 
oder wertmäßig (Kontoführung) aktualisieren. 

5) Ändern: 

Sätze löschen (entfernen) oder inhaltlich abändern. 

6) Sortieren: 

Sätze in eine auf- oder absteigende Sortierfolge bringen. 

7) Mischen: 

Quelldateien zu einer Zieldatei sortiert zusammenfügen. 

8) Kopieren: 

Datei abbildgetreu (Back up) oder geändert (Teildatei bilden) 
übertragen bzw. kopieren. 

9) Auswählen: 

Sätze, die bestimmten Bedingungen genügen, heraussuchen 
bzw. selektieren (Satzgruppen bilden). 
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10) Klassifizieren: 

Datei nach bestimmten Größenklassen auswerten. 

11) Verdichten: 

Sätze nach Merkmalen gruppieren und Gruppensummen 
bilden (Gruppenwechsel). 

Elf grundlegende Abläufe bzw. Algorithmen auf Dateien 

Datei-Algorithmen: Die elf grundlegenden Abläufe beziehen sich auf die 
vier Datei-Organisationsformen (sequentiell, Direktzugriff, index-se¬ 
quentiell, verkettet) gleichermaßen. Man spricht auch von den grundle¬ 
genden Datei-Algorithmen (ein Algorithmus ist eine Folge von Anwei¬ 
sungen, der in einer endlichen Schritt-Anzahl zur Lösung eines Problems 
führt). 

Zum Ablauf "1) Anlegen": Hier wird die Struktur als das Definitionsge¬ 
rüst einer neuen Datei festgelegt. Spezielle Dateiverwaltungssysteme wie 
z.B. dBASE sehen dazu gesonderte Befehle vor (z.B. CREATE). 

Zum Ablauf ”4) Bewegen": Bewegungen werden in der Regel gesammelt 
(gestapelt), als Bewegungsdatei gepeichert und dann zu einem Termin wie 
z.B. zum Wochenende in einem Arbeitsgang verarbeitet. 

Zum Ablauf "5) Ändern": Sätze können tatsächlich (= physisch) oder nur 
durch eine bestimmte Markierung wie BESTAND=-99 (= logisch) ge¬ 
löscht werden; die Inhaltsänderung kann ein oder mehrere Datenfelder 
betreffen. 

Zum Ablauf "6) Sortieren": Es kann intern im RAM und/oder extern auf 
Band bzw. Platte sortiert werden. Dabei werden die Datensätze selbst 
oder aber nur deren Adressen (Speicherplätze) in eine neue Reihenfolge 
gebracht. 

Zum Ablauf "8) Kopieren": Beim Back Up duplizieren wir eine Datei un¬ 
verändert. Ebenso läßt sich eine Datei als Kopie von einer anderen Datei 
bei gleichzeitigem Ändern (Verkürzen, Erweitern, Modifizieren) erstellen. 

Zum Ablauf "9) Auswählen": Hat die Datei n Sätze, so kann man genau 
einen Kunden (110), mehrere vorgegebene Sätze (Kunden 101, 104 und 
110) oder eine unbestimmte Satzanzahl (alle Kunden unter 10.000 DM 
Umsatz) auswählen. 

Zum Ablauf "10) Klassifizieren": Hier wird z.B. eine Artikeldatei nach 
Lagerorten und Umschlagshäufigkeit tabellarisch ausgewertet. 

Zum Ablauf ”11) Verdichten": Gruppenwechsel kann einstufig (Absatz je 
Vertreter) oder zweistufig (Absatz je Vertreter und Artikel) vorgenom¬ 
men werden. 



1.3 Software = Daten + Programme 


55 


1.3.5.4 Datei öffen, verarbeiten und schließen 

Beim Lesen, Schreiben oder Ändern einer Datei geht man immer in drei 
Schritten vor: Datei öffnen, verarbeiten und schließen. 

1. Datei öffnen: 

Verbindung zwischen Datei und Programm hersteilen (Dateiname, 
Zugriffsart, Verbindungskanal usw.). 

2. Datei verarbeiten: 

Lesen (eingeben), schreiben (ausgeben) und/oder ändern (ein/- 
ausgeben bzw. überschreiben). 

3. Datei schließen: 

Verbindung ordnungsgemäß beenden (Dateiende EOF (End of File) 
kennzeichnen, Directory (Inhaltsverzeichnis) auf Datei zurück¬ 
übertragen). 

Dateizugriff in drei Schritten 

Treiber: Bei komplexen Datei-Algorithmen sind für diese drei Schritte 
jeweils gesonderte Unterprogramme vorgesehen, die Programmvorlauf, 
Programmtreiber und Programmabschluß genannt werden. 

Dateiweiser Datenverkehr: Ist eine Datei auf Kassette abgespeichert, liest 
man nach dem Eröffnen häufig die Datei in einem Arbeitsgang komplett 
in den Hauptspeicher, um sie dort z.B. als Array (Feld, Bereich, Tabelle) 
verarbeiten zu können. Erst unmittelbar vor dem Schließen wird die 
aktualisierte Datei dann - wiederum komplett - auf die Kassette 
zurückgeschrieben. Man bezeichnet dies als dateiweisen Datenverkehr. 

Datensatzweiser Datenverkehr: Ist die Datei größer als der im RAM in¬ 
tern verfügbare Speicherplatz, dann ist dieses Vorgehen nicht möglich. 
Als Gegenstück kann man mit Schritt 2 je einen Datensatz einzeln in den 
RAM übertragen und umgekehrt (datensatzweiser Datenverkehr). Zwi¬ 
schen diesen beiden Extremen - Datenverkehr dateiweise oder datensatz¬ 
weise - gibt es natürlich zahlreiche Abstufungen. 

1.3.5.5 Eine oder mehrere Dateien verarbeiten 

Dateiverkettung: In der kaufmännischen Praxis wird man nur selten eine 
Datei einzeln verarbeiten. Vielmehr sind zumeist mehrere Dateien in ein 
System eingebunden; man spricht dann häufig von Dateiverkettung. Dazu 
ein Beispiel: In einer Lagerverwaltung sind die "Artikelstammdatei", "Be¬ 
standsdatei", "Bestelldatei (Einkauf)" und "Auftragsdatei (Verkauf)" ver¬ 
kettet, um von einem Programm(-paket) verwaltet zu werden; Datenver¬ 
waltungssystem ist die oft verwendete Bezeichnung hierfür. 
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Integrierte DV: Wird nicht nur die Aufgabe der Lagerverwaltung gelöst, 
sondern werden sämtliche betrieblichen Aufgaben in einem Datei-System 
eingebunden, dann spricht man oft von integrierter Datenverarbeitung. 

1.3.5.6 Datenbank 

Bei isolierter Verarbeitung einzelner Dateien wie auch bei der Dateiver¬ 
kettung ist nicht zu vermeiden, daß ein Datum mehrfach in verschie¬ 
denen Dateien gespeichert ist; man spricht von der Datenredundanz. So 
kann z.B. ein Kunde samt Kundenanschrift in der Kundenstammdatei, 
der Offene-Posten-Datei und der Weihnachtsgeschenkedatei dreifach ge¬ 
speichert sein. Um dies zu vermeiden, faßt man sämtliche Daten in einer 
gemeinsamen Datenbasis zusammen, die Datenbank genannt wird. Eine 
solche Datenbank kann - für sich allein genommen - ebenfalls als Ver¬ 
kettung von Dateien angesehen werden. Das wesentlich Neue dabei ist, 
daß auf alle Elemente der Datenbank über ein Datenbankmanagement¬ 
system (DBMS) zentral zugegriffen wird. Das DBMS besteht aus mehre¬ 
ren Systemprogrammen zur Durchführung von Aufgaben wie dem Än¬ 
dern von Daten der Datenbank, dem gleichzeitigen Zugriff mehrerer Be¬ 
nutzer, dem Abfragen von Daten, dem Überprüfen der Zugriffsberech¬ 
tigung usw.. 


BENUTZER 


Datenbank-Managementsystem (DBMS) 
mit Sprachen wie DDL und DML 


Datenbank (DB) mit Dateien wie: 

- Artikelstammdatei, Gehaltsdatei, Kundendatei, 

- Rechnungsdatei, Lagerdatei, Bestelldatei 

Das Datenbank-System (DBS) besteht aus Datenbank (DB) und DBMS 

Mit dem DBMS werden dem Benutzer unter anderem zwei sprachliche 
Hilfsmittel zur Verfügung gestellt: 

Zum einen die Daten-Definitions-Sprache DDL (Data Definition Lan- 
guage) zum Aufbau und zur Pflege der Datenbank. Mit der DDL werden 
z.B. die Datensätze definiert (Name, Anzahl, Datentyp, Länge der 
Satzkomponenten). Sie richten sich mehr an den Programmierer bzw. an 
den Datenbankverwalter. 

Zum anderen eine Daten-Manipulations-Sprache DML (Data Manipula¬ 
tion Language) zur eigentlichen Behandlung der Daten. Diese DML rich¬ 
tet sich mehr an den Sachbearbeiter, der ein Abfragen wie "Drucke eine 
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Übersicht aller Kunden aus, die offene Rechnungen über DM 5000.- zu 
begleichen haben" laufen läßt. Die DML wird auch als Abfragesprache 
bzw. Query-Language bezeichnet. 

Datenbank-Sprachen weisen wie Programmiersprachen zumeist englische 
Anweisungsworte auf wie etwa FIND zur Suchanfrage, READ zum Le¬ 
sen, WRITE zum Schreiben, DELETE zum Entfernen, INSERT zum 
Einfügen von Datensätzen. 

Das herkömmliche Datei-System unterscheidet sich in zumindest drei 
Punkten vom Datenbank-System: in der Redundanz, Vielfachverwend¬ 
barkeit und Datenunabhängigkeit. 

- Redundanzfreiheit: 

In der Datenbank werden die Daten möglichst redundanzfrei 
abgelegt, d.h. nicht mehrfach gespeichert. 

- Vielfache Verwendbarkeit: 

In der Datenbank werden die Daten vielfach verwendbar abge¬ 
legt, um vielen Benutzern einen möglichst einfachen Direkt¬ 
zugriff zu gestatten. 

- Datenunabhängigkeit: 

Die Programme bzw. Zugriffspfade arbeiten datenunabhängig in 
dem Sinne, daß bei der Änderung der Daten keine Änderung des 
Programms notwendig wird. 

Drei Vorteile des Datenbank-Systems gegenüber dem Datei-System 

Strukturiertes und unstrukturiertes Datenbank-System: 

Zwei grundlegende Datenbank-Systeme sind zu unterscheiden: das struk¬ 
turierte und das unstrukturierte Datenbank-System. Strukturiert bedeutet, 
daß in der Datenbank selbst Information zum Verweisen auf weitere In¬ 
formation abgespeichert ist; damit muß bei Anfragen stets entlang der 
vorgegebenen Pfade vorgegangen werden. Im Gegensatz dazu gibt es bei 
der unstrukturierten Datenbank keine vordefinierten Zugriffspfade; da¬ 
mit verlangsamt sich der Zugriff, gleichzeitig jedoch hat man unbe¬ 
grenzte Möglichkeiten, Daten nach bestimmten Suchkriterien abzufragen. 
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Datenbank-System (DBS) 

— STRUKTURIERT: 

- Suchbegriffe, Zugriffspfade festgelegt gespeichert. 

- Hierarchisches DBS: Daten baumartig verkettet. 

- Netzwerk-Modell CODASYL: Netz von Zugriffspfaden. 

— UNSTRUKTURIERT: 

- Verknüpfung der Information erst im Moment der Abfrage. 

- Invertierte Dateien: Zugriff über Indexlisten. 

- Relationen-Modell: Anordnung der Daten in Tabellenform. 

Strukturiertes und unstrukturiertes Datenbank-System 

Beim Netzwerk-Modell gemäß dem CODASYL-Ausschuß (COnference of 
DAta SYstem Language in den USA im Jahre 1971) sind die in der Da¬ 
tenbank abgelegten Daten in Datentypen (Item Types) sowie in Daten¬ 
satztypen (Record Types) zu gliedern, wobei zwischen den verschiedenen 
Datensatz-Typen sogenannte Beziehungstypen (Set Types) definiert wer¬ 
den. 

Bei der relationalen Datenbank als Gegenstück zum Netzwerk-Modell 
werden nur Datensätze im herkömmlichen Sinne unterschieden, wobei die 
einzelnen Datensatzkomponenten bzw. Datenfelder in Beziehung zueinan¬ 
der stehen wie die Zeilen und Spalten einer Matrix (Tabelle bzw. zweidi¬ 
mensionaler Array). Das Datenbanksystem dBASE gilt als weitverbreiteter 
Vertreter der relationalen Datenbank. Dazu als Beispiel unsere Kunden¬ 
datei von Abschnitt 1.3.5: 


101 

FREI 

6500.00 

104 

MAUCHER 

295.60 

109 

HILDEBRANDT 

4590.05 

110 

AMANN 

1018.75 


- Matrix mit n Zeilen und 3 Spalten. 

- Jeder Zeile entspricht ein Datensatz. 

- Jeder Spalte entspricht ein Datenfeld. 

- Zugriffsbeispiel: Matrix(2,3) ergibt 295.60 (2. Zeile, 3. Spalte). 

Kundendatei als Beispiel einer Relation (Matrix) 


Das Relationen-Modell ist weit anschaulicher als das Netzwerk-Modell. 
Komplexe Datenstrukturen allerdings lassen sich in einer "flachen Matrix" 
nur schwer darstellen. 
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Mehrfunktionale Pakete: 

Ursprünglich lag die Aufgabe eines Datenbank-Systems in der Informa¬ 
tionswiedergewinnung (= Information Retrieval) bzw. in der Auskunfts¬ 
erteilung. Zunehmend werden kommerzielle Datenbank-Systeme angebo- 
ten, die darüberhinaus andere Aufgaben bzw. Funktionen wie das Rech¬ 
nen (sogenannte "rechnende Datenbanken") oder z.B. die Textverarbeitung 
übernehmen. 

Datenbank-Maschine: 

"... eine dedizierte Datenbank-Maschine, die mit einem Host-Computer 
günstiges Datenmanagement bietet". Was beinhaltet eine solche Anzeige? 
Eine Datenbank-Maschine ist kein Allzweck-Computer, sondern ein Au¬ 
tomat, dessen Hardware ausschließlich auf die Verwaltung einer Daten¬ 
bank ausgerichtet bzw. dediziert ist. Darüberhinaus gibt es kein "norma¬ 
les" Betriebssystem, sondern nur ein Softwarepaket, das immer im Spei¬ 
cher resident ist und dabei sämtliche Funktionen einer relationalen Da¬ 
tenbank übernimmt. Damit sind wir bei der Begründung: Relationale Da¬ 
tenbanken benötigen viel Speicherplatz sowie CPU-Zeit, der 
Personalcomputer wird allzu leicht überlastet. Deshalb die Hinwendung 
von der "Software-Datenbank" zur "Hardware-Datenbank-Maschine", die 
an den Personalcomputer als Host bzw. Wirt und Gastgeber (vgl. auch 
Abschnitt 1.3.6.5) angeschlossen wird. Diese Lösung hat die folgenden 
Vorteile: Der PC als Host wird nicht durch die Datenbank belastet; die 
Größe der Datenbank ist unabhängig von der Größe des Personalcom¬ 
puters. 


1.3.6 System-Software (Betriebssystem) 

Das Betriebssystem mit seinen Steuer-, Dienst- und Übersetzerprogram¬ 
men (vgl. Abschnitt 1.3.1.2) dient als Mittler zwischen dem Anwender 
bzw. Anwenderprogramm und dem Computerkern (Hardware). 

1.3.6.1 Betriebssystem als Firmware (ROM) oder als Software 

Hinsichtlich der Speicherung des Betriebssystems gibt es zwei extreme 
Möglichkeiten, die gerade für Personalcomputer von Interesse sind: 
Betriebssystem im ROM: Auf der einen Seite ist das Betriebssystem fest 
in ROMs untergebracht (ROM als Festspeicher enthält die Systempro¬ 
gramme als Firmware) und steht beim Einschalten des Computers unmit¬ 
telbar zur Verfügung. Diese Möglichkeit ist vorteilhaft, wenn man nur 
mit einer einzigen Programmiersprache arbeiten möchte. "Reine BASIC- 
Maschinen" z.B. sind oft so aufgebaut und sehr einfach zu bedienen. 
Betriebssystem im RAM: Auf der anderen Seite ist das Betriebssystem als 
Software auf einem Externspeicher (Diskette, Hard Disk) gespeichert und 
muß beim Einschalten des Computers vom Benutzer in den Internspei¬ 
cher geladen werden. Diese umständlichere Art der Bedienung (Handling) 
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hat für den Benutzer jedoch den Vorteil, daß leicht z.B. auf eine andere 
Programmiersprache wie COBOL, Pascal, Prolog oder Modula-2 umgerü¬ 
stet werden kann: Er muß nur das zugehörige Übersetzerprogramm für 
COBOL, Pascal, Prolog bzw. Modula-2 von einer Diskette in den RAM 
laden. Personalcomputer mit mehreren Betriebssystemen (z.B. MS-DOS, 
Unix und UCSD-p) haben diese stets als Software gespeichert. 

Zwischen der reinen Firmware-Lösung (Betriebssystem im ROM) und 
der reinen Software-Lösung (Betriebssystem auf Diskette) als Extremen 
gibt es natürlich Zwischenlösungen. So kann beim Einschalten des Com¬ 
puters z.B. die Sprache BASIC aus dem ROM automatisch für den Be¬ 
nutzer mit der Möglichkeit zur Verfügung gestellt werden, später aus 
BASIC "auszusteigen", um ein anderes Betriebssystem bzw. Sprachmittel 
softwaremäßig zu laden. 

1.3.6.2 Beispiel: Betriebssystem unterstützt Computer-Start 

Die Funktion des Betriebssystems läßt sich gut am Beispiel des Startens 
eines Personalcomputers veranschaulichen. Man geht in drei Schritten 
vor. 

Schritt (1): Gerät anschalten. Aus einem ROM als Nur-Lese-Speicher 
wird automatisch ein Startprogramm zur Ureingabe in den Hauptspeicher 
gebracht. Dieses lädt die Datei-Directory (Verzeichnis der auf Diskette 
gespeicherten Dateien sowie Programme) ebenfalls in den RAM wie auch 
das Betriebssystem mit seinen Programmen. Das Betriebssystem zeigt nun 
dem Benutzer am Bildschirm durch ein Zeichen an, daß der Computer 
betriebsbereit ist. Der Benutzer befindet sich auf der Betriebssystem- 
Ebene (System Mode). 

Schritt (2): Programmiersprache laden: Der Benutzer hat sich entschie¬ 
den, BASIC zu laden und tippt den entsprechenden Betriebssystem-Be¬ 
fehl ein. Das Betriebssystem prüft in der Disketten-Directory nach, ob 
auf der Diskette das BASIC-Übersetzerprogramm auch vorhanden ist und 
lädt es zusätzlich in den RAM. Dies entspricht der oben angesprochenen 
Software-Lösung; bei der Firmware-Lösung würde Schritt (2) automa¬ 
tisch als Teil einer starren Befehlsfolge nach dem Einschalten ablaufen. 

Schritt (3) Unter Kontrolle der Programmiersprache arbeiten: Der Benut¬ 
zer kann sich jetzt ein auf der Diskette enthaltenes Anwenderprogramm 
in den RAM laden wie im Beispiel das Programm A. Das Übersetzerpro¬ 
gramm (ein Interpreter, wie im folgenden Abschnitt zu zeigen ist) ruft 
zum Laden das Betriebssystem auf, welches nach dem Ladevorgang wie¬ 
derum die Kontrolle an das Übersetzerprogramm zurückgibt. Anschlie¬ 
ßend kann der Benutzer das Anwenderprogramm A ausführen lassen. 
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1.3.6.3 Übersetzerprogramme 

Ein Computer versteht so viele Programmiersprachen (= Fremdsprachen), 
wie Übersetzerprogramme verfügbar sind. Die Übersetzerprogramme wandeln 
Programmiersprache (= Fremdsprache des Computers) in Maschinensprache 
(= Muttersprache des Computers) um. 

Maschinen- und problemorientierte Programmiersprachen: 

Es gibt maschinenorientierte Programmiersprachen, bei denen als "1-zu- 
1-Sprachen" dann zumeist eine Fremdsprachenanweisung zu einem Ma- 
chinenbefehl führt; sie heißen auch Assembler(-sprachen). 

Das Gegenstück sind die problemorientierten Programmiersprachen als 
"1-zu-mehr-Sprachen". Bei ihnen wird eine Fremdsprachenanweisung in 
mehrere Maschinensprachenbefehle übersetzt. Die zugehörigen Überset¬ 
zerprogramme sind entweder Compiler oder aber Interpreter. 

Maschinenorientierte 1-zu-1-Sprachen: 

- Übersetzung vom Quellen- zum Maschinenprogramm 

- ASSEMBLER übersetzt programmweise (Übersetzungslauf) 


Problemorientierte 1-zu-mehr-Sprachen: 

- Übersetzung vom Quellen- zum Maschinenprogramm 

- COMPILER übersetzt programmweise (Übersetzungslauf) 

- Übersetzungen des Quellenprogramms während der Ausführung 

- INTERPRETER übersetzt befehlsweise 

Maschinen- und problemorientierte Programmiersprachen 
Maschinensprache: 

Jeder Computer hat seine eigene maschinenorientierte Programmierspra¬ 
che, die - obwohl von Computer zu Computer z.T. verschieden aufgebaut 
- stets Assembler heißt. Das in Assembler geschriebene Programm (auch 
Quellenprogramm, Quellcode oder Source-Listing genannt) kann der 
Computer noch nicht verstehen. Ein Übersetzerprogramm, das (verwir¬ 
rend?) ebenfalls Assembler genannt wird, übersetzt nun das Quellenpro¬ 
gramm in die für die CPU verständliche Maschinensprache als 
Objektprogramm. Das eigentliche Maschinenprogramm steht als Abfolge 
von Bytes computerverständlich im Internspeicher; da es für uns nur 
schwer lesbar ist, wird es vom Assembler zur Kontrolle als Assembler- 
Listing in hexadezimaler Schreibweise ausgegeben. 
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Interpreter als Übersetzer: 

Interpreter und Compiler als Übersetzerprogramme arbeiten analog zum 
menschlichen Sprachübersetzer wie folgt: Ein Interpreter (to interprete = 
auslegen) arbeitet wie ein Simultan-Dolmetscher. Der Dolmetscher über¬ 
setzt Satz für Satz, um das Ergebnis sofort mitzuteilen. Ein Interpreter 
übersetzt Anweisung für Anweisung, um jede Anweisung sofort auszu¬ 
führen. 

Compiler als Übersetzer: 

Ein Compiler (to compile = zusammensetzen) hingegen arbeitet wie ein 
"normaler" Fremdsprachenübersetzer: Dieser übersetzt das gesamte 
Fremdsprachenschriftstück zu einem bestimmten Termin. Entsprechend 
übersetzt ein Compiler das gesamte Anwenderprogramm komplett in ei¬ 
nem Arbeitsgang: Das in einer sogenannten Hochsprache verfaßte Pro¬ 
gramm wird in einem gesonderten Compilierungslauf in ein lauffähiges 
Maschinenprogramm übersetzt. 

Die Vorteile eines compilierenden Systems (z.B. Objektprogramm in 0/1- 
Form ablauffähig auf Externspeicher abgelegt, Programmausführung sehr 
schnell) und seine Nachteile (z.B. eine Fehlerkorrektur erfordert die 
komplette Neuübersetzung, Speicherbedarf für Quelle, Übersetzer und 
Objekt sehr groß) sind stets abzuwägen. Günstig ist: Programmentwick¬ 
lung sowie Programmtest mit einem Interpreter und dann abschließende 
Compilierung des Programms. 

Gerade bei Personalcomputern lassen sich Interpreter und Compiler kaum 
mehr streng trennen. So gibt es compilierende Interpreter und interpre¬ 
tierende Compiler. 

Zum "compilierenden Interpreter" ein Beispiel: Die Softwarefirma Micro¬ 
soft hat solche Zwischenlösungen als BASIC-Interpreter entwickelt. Dabei 
werden die BASIC-Zeilen beim Eintippen (für den Benutzer unbemerkt) 
in einen sogenannten Zwischencode übersetzt (PRINT wird z.B. als hexa¬ 
dezimal BA bzw. dezimal 186 zwischengespeichert, nicht aber in fünf 
ASCII-Zeichen bzw. Bytes als PRINT). 

Zum "interpretierenden Compiler" ebenfalls ein Beispiel: Der unter dem 
Betriebssystem USCD laufende Pascal-Compiler übersetzt den Quellcode 
in einem getrennten Übersetzungslauf in einen Zwischencode (P-Code 
genannt mit "P" für Pseudo-Code), der dann zur Ausführungszeit durch 
einen Interpreter weiter übersetzt wird. 

1.3.6.4 Programmiersprachen 

Es gibt mehrere hundert Programmiersprachen. Die wichtigsten Sprachen 
werden im folgenden in Stichworten beschrieben: 

ADA: Diese nach Lady Ada Augusta benannte Sprache wurde 1980 vom 
USVerteidigungsministerium herausgebracht (wie früher COBOL) und 
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wird als Universalsprache genutzt. ADA-Subsets laufen auf Personalcom¬ 
putern. 

ALGOL 60: Diese "ALGOrithmic Language" gibt es seit 1960. Sie wird 
vornehmlich im Hochschulbereich eingesetzt. 

APL: "A Programming Language" gilt als eines der mächtigsten und 
knappsten Sprachmittel. Berühmt sind die APL-Einzeiler mit ihren Kurz- 
Operatoren (griechische Symbolik). Auf Personalcomputern mit 16-Bit- 
Prozessoren läuft APL stets als Interpreter. 

ASSEMBLER: Die maschinenorientierten Assembler-Sprachen (vgl. Ab¬ 
schnitt 1.3.6.3) gehören eigentlich nicht in diese Übersicht von Hochspra¬ 
chen bzw. 1-zu-mehr-Sprachen. Makros als Gruppe von Einzelbefehlen 
jedoch machen das maschinennahe Arbeiten in Assembler etwas weniger 
mühsam. 

BASIC: Für diese auf Personalcomputern weit verbreitete Sprache (Begin¬ 
nes All Purpose Symbolic Instruction Code) gibt es fast so viele Dialekte 
wie Computertypen. Am weitesten ist das “Microsoft-BASIC” verbreitet. 
BASIC gibt es sowohl als compilierende Sprache (z. B. C-BASIC, Microsoft 
QuickBASIC, Turbo BASIC) wie auch als Interpreter. BASIC gehört zu 
den unstrukturierten Sprachen. 

C: In der Sprache C sind z.B. das Betriebssystem Unix und die Datenver¬ 
waltung dBASE III geschrieben. Es kann Pascal-ähnlich strukturiert pro¬ 
grammiert werden; dabei werden aber weniger Datentypen und mehr 
Operatoren (etwa wie in APL) bereitgestellt. Gut in C: Zeiger (Pointer) 
zur Adreßverkettung. 

COBOL: Die "Common Business Oriented Language" gibt es bereits seit 
1959. COBOL ist die kommerzielle Programmiersprache, genormt, äußerst 
umfangreich. Ungefähr 50 % aller US-Software ist in COBOL geschrie¬ 
ben. Zitat: "COBOL" ist nicht gut, aber es gibt viele Programmierer, die 
diese Sprache gut beherrschen. 

ELAN: Die Ende der 70er Jahre in Berlin entwickelte Sprache unterstützt 
das strukturierte Programmieren und wird im Schulbereich in Konkur¬ 
renz zu Pascal und Modula-2 eingesetzt. 

FORTH: Dies ist eine interpretierende Sprache, die jedoch zunächst den 
FORTH-Text in einen Zwischencode übersetzt (siehe Abschnitt 1.3.6.3). 
FORTH gibt es auch für kleinere Computer. 

FORTRAN: Der "FORMula TRANSlator" entstand 1950 und gilt als die 
wichtigste Hochsprache zur Lösung mathematisch/naturwissenschaftlicher 
Probleme. Wie COBOL ist FORTRAN eine typische Großcomputerspra¬ 
che. BASIC ist ein FORTRAN-Abkömmling. 

LISP: Der LISP-Interpreter wird insbesondere von Wissenschaftlern ver¬ 
wendet, die sich mit der "Künstlichen Intelligenz" beschäftigen (Nachah¬ 
mung des menschlichen Gehirns durch die CPU, Abschnitt 1.1.3). Eine 
LISP-Variable hat als "Atom" neben Namen und Wert vom Programmie¬ 
rer frei zu vereinbarende Merkmale, die als Liste geführt werden (des¬ 
halb die Bezeichnung LISP für LISt Processor). Siehe auch Prolog. 
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LOGO: "Anders als die anderen Sprachen"; diese Aussage trifft für APL 
(im Hinblick auf die komprimierte Problembeschreibung über mächtige 
Operatoren) sowie für LOGO (im Hinblick auf die kindgerechte Schild¬ 
krötengrafik) zu. Bei den "Turtle Graphics" kann die am Bildschirm krie¬ 
chende Schildkröte zum Zeichnen von Bildern gesteuert werden. LOGO- 
Interpreter kommen mit wenig Platz aus und sind für Personalcomputer 
erhältlich. 

Modula-2: Diese Sprache wurde von Niklaus Wirth als Nachfolgesprache 
zu Pascal entwickelt. Besondere Merkmale: Typische "Hochsprachen-An- 
wendungen" sind ebenso möglich wie maschinennahe Programmierung; 
ausgereifte Modularisierung (Module als Bausteine - anders als in Pascal 

- separat speicherbar in Modul-Bibliothek); Compiler kann Maschinen¬ 
code erzeugen zwecks Einbrennen in PROMs (damit Nutzung als 
Entwicklungssprache für Mikrocomputerprodukte). 

- Pascal: "Pascal" erzieht zum klaren Programmieren" - aus diesem 
Grunde halten gerade die Lehrer so viel von dieser von Niklaus Wirth 
1972 erstmalig beschriebenen Sprache. Pascal ist nach dem Mathematiker 
und Philosophen Blaise Pascal (1623-1662) benannt und gilt als die 
Sprache für das strukturierte Programmieren. Leider ist nur das ur¬ 
sprüngliche Wirthsche PASCAL standardisiert, nicht aber die später not¬ 
wendig gewordenen Erweiterungen (wie Grafik-, Text- und Dateiverar¬ 
beitung; Wirth beschrieb so z.B. nur die sequentielle Banddatei). 
TURBO-Pascal gilt zunehmend als neuer Pascal-Standard. 

- PILOT: Das "Programmed Inquiry Learning or Teaching" ist für Perso¬ 
nalcomputer als BASIC-Ersatz für Lehr-/Lernzwecke entwickelt worden. 
PILOT arbeitet ausschließlich interpretierend. PILOT wird eingesetzt im 
Rahmen des Computer-unterstützten Unterrichts (CUU) bzw. der Com¬ 
puter Aided Instruction (CAI). 

- PL/1: Die "Programming Language 1" wurde von der IBM für Groß¬ 
computer entwickelt und umfaßt die Sprachelemente von COBOL und 
FORTRAN zusammen - aber modern strukturiert. Wertmäßig dürfte die 
in PL/1 geschriebene Software nach der COBOL-Software den zweiten 
Platz einnehmen. 

- Prolog: Wie LISP zählt auch Prolog zu den Programmiersprachen, die 
dem KI-Ansatz (Künstliche Intelligenz) folgen. TURBO-Prolog wird da¬ 
bei als in sich abgeschlossenes Programmiersystem angeboten. Im Mittel¬ 
punkt dieser Programmiersprache steht die Beschreibung eines Problems, 
während die Lösung vom System gefunden wird. 

Diese Auswahl kann keinesfalls vollständig sein. Die Liste von Program¬ 
miersprachen ließe sich fortsetzen: BCPL, COMAL, CORAL, DIBOL, 
EUCLID, MUMPS, PEARL, PL/M, RPG II, SIMULA 67, SNOBOL, 
STOIC, ... Abschließend: Vermutlich werden in zehn Jahren Program¬ 
miersprachen überwiegen, die heute noch nicht einmal entworfen sind. 
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1.3.6.5 Herstellerabhängige und unabhängige Betriebssysteme 

Her steiler abhängige Betriebssysteme: 

Die Abkürzung DOS steht für "Disk Operating System". Es ist ein Sy¬ 
stemprogramm, das alle mit der Diskette verbundenen Ein- und Ausga¬ 
ben kontrolliert. Die Bezeichnung DOS findet sich als Namensbestandteil 
zahlreicher Betriebssysteme. Das DOS für Apple II und Commodore 128 
sind Beispiele für Betriebssysteme, welche vom Hersteller speziell auf das 
eigene Gerät hin zugeschnitten wurden. Herstellerabhängige Systeme fin¬ 
det man vornehmlich bei kleineren Computern mit 8-Bit-Mikroprozesso- 
ren. 

Herstellerunabhängige Betriebssysteme: 

Personalcomputer der 16-Bit-Klasse und 32-Bit-Klasse arbeiten mit her¬ 
stellerunabhängigen Betriebssystemen, die von Software-Produzenten ent¬ 
wickelt wurden. So mit den Betriebssystemen CP/M und MS-DOS der 
beiden Software-Giganten Digital Research und Microsoft, mit UCSD 
der Universität von San Diego in Kalifornien, mit UNIX, XENIX, 
OASIS, .... 

Wie kam es dazu? Früher baute jeder Hersteller sein eigenes Betriebssy¬ 
stem, um es mit dem Computer als Einheit anzubieten. Um das Betriebs¬ 
system herum wurde ein großer Schleier gelegt - ein Übernehmen oder 
Anpassen an einen anderen Computer war somit unmöglich. Dies änderte 
sich erst, als die Software-Firma Digital Research ihr "Control Programm 
for Microcomputers", genannt CP/M, als herstellerunabhängiges Soft¬ 
ware-Produkt anbot: mit einer exakten Beschreibung der Verbindung 
(Schnittstellen) des Betriebssystems zur Computerhardware. Nun began¬ 
nen immer mehr Hersteller, CP/M-fähige Computer zu produzieren. Mit 
der raschen Verbreitung von CP/M nahmen solche Programme zu, die 
CP/M-verträglich waren. Ursprünglich wurde CP/M für den Mikropro¬ 
zessor 8080 und später für den Z-80-Prozessor eingesetzt, deshalb die 
Bezeichnung CP/M-80. Die Variante CP/M-86 wurde für den 8086- 
Prozessor entwickelt. Über das BIOS (Basic Input-Output System) als dem 
adaptierbaren Teil des CP/M läßt sich dieses prozessorabhängige System 
an Computer anpassen, die eine CPU haben, welche z.B. den Code des 
Intel 8088 verarbeiten. 
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Herstellerunabhängige Betriebssysteme: 

- Prozessorabhängig (Implementierung über BIOS): 

- CP/M-80 als "Standard" für Prozessoren 8080, Z80 

- CP/M-86 z.B. für Prozessoren 8088, 8086 

- MS-DOS als "Standard" z.B. für Prozezzoren 8088, 8086 

1 - Prozessorunabhängig (Implementierung über P-Code-Intertreter): 

- UCSD-P - System 

CP/M-80 und MS-DOS als Betriebssystem-Standards 
1.3.6.6 Einige Betriebssysteme kurzgefaßt 

Auf die Betriebssysteme CP/M, MS-DOS, UNIX und USCD wollen wir 
kurz eingehen. 

Zunächst zu CP/M von Digital Research: 

CP/M war das erste Betriebssystem für Mikrocomputer, wurde seit 1974 
angeboten und entwickelte sich schon bald zum Quasi-Standard für 8- 
Bit-Computer mit den CPUs 8080, 8085 und Z-80. Im Hinblick auf die 
80er-CPUs bezeichnet man dieses Betriebssystem oft als CP/M-80. 

Für 16-Bit-Computer mit der CPU 8086 von Intel entwickelte Digital 
Research das Betriebssystem CP/M-86. Da CP/M-80 zum Teil in Assem¬ 
bler geschrieben ist, stellt CP/M-86 eine Neuentwicklung dar (die CPU 
8086 arbeitet in einem anderen Code als die CPUs der 80er Serie). Des¬ 
halb auch die Probleme bei der Kompatibilität zwischen CP/M-80 und 
CP/M-86. 

Für den Multi-User-Betrieb bietet Digital Research die Systeme MP/M- 
80 sowie MP/M (Multiprogramming Monitor für Microcomputer) an. 

Das Betriebssystem CONCURRENT CP/M wurde für den Single-User- 
Betrieb unter Multi-Tasking entworfen: Mehrere Aufgaben können als 
Tasks gleichzeitig auf einem PC bearbeitet werden. MP/M sowie CON¬ 
CURRENT CP/M erweitern den Leistungsumfang des CP/M um die je¬ 
weiligen Funktionen des Multi-Using bzw. Multi-Tasking. 

Das Betriebssystem PERSONAL CP/M läßt sich in einem ROM unter¬ 
bringen und eignet sich deswegen auch für PCs ohne Diskettenlaufwerk. 
PERSONAL CP/M wurde eigens für kleinere PCs entwickelt und unter¬ 
stützt sowohl 8-Bit-CPUs als auch 16-Bit-CPUs. 

Zu MS-DOS von Microsoft: 

Als Konkurrenzprodukt zu CP/M-86 von Digital Research brachte die 
Softwarefirma Microsoft das Betriebssystem MS-DOS heraus. IBM wählte 
für seinen PC als Betriebssystem MS-DOS, und zwar in einer Version, 
die den Namen PC-DOS erhielt und hardwareabhängiger ist als MS-DOS 
selbst. Durch die Wahl dieses Betriebssystems wurde MS-DOS sehr popu- 
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lär. Die Version MS-DOS 3.x ist für Multi-Using und für Multi-Tasking 
konzipiert. 

Zum Betriebssystem UNIX: 

Im Gegensatz zu CP/M sowie MS-DOS ist das Betriebssystem UNIX 
nicht in Assembler, sondern fast vollständig in der Sprache C geschrie¬ 
ben. Damit ist UNIX auf alle PCs übertragbar, die über einen C-Compi- 
ler verfügen. UNIX wurde von Wissenschaftlern für Wissenschaftler ge¬ 
schrieben - entsprechend profihaft wie kompliziert ist seine Benutzung. 
Deshalb wurden viele von UNIX abgeleitete und leichter bedienbare 
Betriebssysteme entwickelt wie ZEUS von Zilog, GENIUS von National, 
REGULUS von Motorola und XENIX von Microsoft. Das bekannteste 
UNIX-Derivat ist XENIX. Es unterstützt Multi-Using wie auch Multi- 
Tasking. 

Zum Betriebssystem UCSD: 

UCSD ist die Abkürzung für University of California San Diego. Früher 
stand UCSD für das Programmiersprachsystem UCSD-Pascal, während es 
heute als umfassendes Betriebssystem mehrere Übersetzer anbietet, wie 
BASIC-Compiler, FORTRAN 77-Compiler, LISP-Interpreter, Modula-2- 
Compiler und natürlich Pascal-Compiler. UCSD (auch als UCSD-P oder 
UOS für Universal Operating System bezeichnet) unterscheidet sich von 
CP/M und MS-DOS durch drei Merkmale: 

- Konsequente Menüsteuerung anstelle einer Kommandosteuerung 

und damit enge Benutzerführung. 

- Bereitstellung einer komfortablen und abgeschlossenen Programm¬ 

entwicklungsumgebung (mit Editor, Filer, Compiler, ...) anstelle 
einer reinen Laufzeitumgebung. 

- Hervorragende Portabilität durch die Mitnahme der Computerar¬ 

chitektur. 

Das UCSD-Betriebssystem ist prozessorunabhängig und damit für 
Computer jeglichen Prozessortyps einsetzbar. Wie ist dies möglich? UCSD 
benutzt den jeweiligen Computer als Host-Computer im Sinne eines Wir¬ 
tes bzw. Gastgebers. Er arbeitet also nicht unmittelbar mit dem Compu¬ 
ter, sondern mit einem Pseudo-Computer. Gibt der Benutzer z.B. ein 
Quellenprogramm in Pascal ein, so übersetzt der Compiler dieses Textfile 
in einen Zwischencode (vgl. Abschnitt 1.3.6.3), der P-Code genannt wird, 
um das resultierende P-Code-File dann ebenfalls abzuspeichern. Soll 
dieses Programm nun ausgeführt werden, so wird es von einem P-Code- 
Interpreter vom P-Code in die Maschinensprache des jeweiligen Com¬ 
puters als Host übersetzt. Der Compiler ist fester Bestandteil des Be¬ 
triebssystems und selbst in Pascal geschrieben. Der P-Code-Interpreter 
dagegen ist in der Maschinensprache des Hosts geschrieben. Soll UCSD 
auf einem Computer implementiert werden, so ist u.a. nur ein P-Code- 
Interpreter für die entsprechende CPU zu schreiben. 
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1.3.7 Anwender-Software entwickeln 

Die Programmentwicklung wird als Teil der DV-Systementwicklung vor¬ 
genommen und vollzieht sich wie diese in Teilschritten. Mag die Termi¬ 
nologie hierzu auch unterschiedlich sein, die Programmentwicklung wird 
stets in der Schrittfolge 

1. PROBLEMSTELLUNG 

2. PROGRAMMENTWURF 

3. PROGRAMMIERUNG 

4. DOKUMENTATION und 

5. ANWENDUNG 

durchgeführt werden. Am Beispiel der Rechnungsstellung wollen wir die¬ 
se Teilschritte im Abriß kurz erläutern. 


Programmentwicklung 



Programmentwicklung in Teilschritten 
1.3.7.1 Problemanalyse 

Ein Problem analysieren heißt, dieses in seine Bestandteile zu zerlegen. 
Bei der Problemanalyse geht man nach der Idee "Vom Einfachen zum 
Schwierigen" von den Ausgabedaten aus, da diese ja mit der Problemstel¬ 
lung als erwartetem Resultat vorgegeben sind. Erst danach wendet man 
sich der Analyse der Eingabe und der Verarbeitung zu. 
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Ausgabe-Analyse: Daten (z.B. Rechnungszeile mit Artikelnummer, Be¬ 
zeichnung, Menge, Einheit, Einzel- und Gesamtpreis), Form (z.B. Druk- 
ker für Rechnung, Diskette für Offene-Posten-Datei), Listbilder zum 
Ausgabeformat, Zeitpunkt der Ausgabe. 

Eingabe-Analyse: Daten (Kundennummer, Artikelnummer und Anzahl 
sowie Datum), Form (z.B. Tastatur, Diskette für Kundendatei und 
Artikeldatei). 

Verarbeitungs-Analyse: Die Verarbeitungsschritte ergeben sich aus den 
Ausgabe- und Eingabeanforderungen (z.B. Menge * Einzelpreis ergibt 
Gesamtpreis). 

Variablenliste: In einer Variablenliste werden sämtliche Namen mit ihren 
Datentypen zusammengefaßt. In einem Datei-Verzeichnis werden die Da¬ 
teien mit den entsprechenden Datensatz-Beschreibungen festgehalten. 

1.3.7.2 Formen zur Darstellung des Lösungsablaufes 

Für den dann zu entwickelnden Algorithmus bzw. Lösungsablauf stehen 
verschiedene Darstellungsformen zu Verfügung: 

Darstellung verbal: 

- Schrittplan 

- Entwurfsprache bzw. Pseudocode 
Darstellung grafisch: 

- Blockdiagramm bzw. Strukturbaum (nur Aufgaben) 

- Datenflußlan (primär Datenträger, Geräte) 

- Programmablauf plan (PAP) 

- Struktogramm 

Dar stell ung com puterverständ l ich : 

- Programmiersprache (z.B. Pascal-Text) 

Sieben Formen zur Darstellung eines Ablaufes 

Schrittplan: Der Schrittplan zum Beispielproblem der Rechnungsschrei¬ 
bung kann z.B. so aussehen: 

1. Rechnungs- und Kundennummer mit Datum eintippen 

2. Rechnungskopf drucken 

3. Rechnungszeile(n) auf bereiten und drucken 

4. Rechnungsabschluß drucken 

5. Kundendatei aktualisieren 

6. Eintrag Offene-Posten-Datei 
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Strukturbaum: Als Strukturbaum bzw. Blockdiagramm kann dieser 
Schrittplan schon feiner gegliedert bzw. strukturiert sein. Hier ein Bei¬ 
spiel zum Schritt 1: 

Schritt 1 



Datenflußplan: Im Datenflußplan werden die Datenträger bzw. Geräte, 
die Arten zur Bearbeitung und der Datenfluß zwischen den Datenträgern 
grafisch festgehalten. 


Verarbeitung: 


Verarbeitung 
allgemein 
(einschl. Ein-/ 
Ausgabe) 



Verarbeitung 
manuell 
(einschl. Ein-/ 
Ausgabe) 


Verbindungen: 


Zugriffs¬ 

möglichkeit 



Verbindung zur Darstellung 
der Datenübertragung 


Daten: 



Daten Daten maschinell Daten manuell Daten auf Manuelle optische 

allgemein verarbeiten verarbeiten Schriftstück oder akustische 

Eingabedaten 


R]Q OöO 

Daten auf Daten auf Daten auf Speicher Daten auf Speicher Daten im Optische oder 

Lochkarte Lochstreifen mit nur sequen- mit direktem Zentral- akustischen Daten 

tiellem Zugriff Zugriff Speicher 



Darstellungshilfen: 

c ) 

O 


1 

1 

1 

Grenzstelle 
(Beginn, Ende 

Herkunft, Verbleib) 

Verbindungsstelle 

(Konrektor) 

Verfeinerung 
(...an anderer Stelle) 

Bemerkung 
(erläuternder Text) 


Sinnbilder für Datenflußpläne nach DIN 66001 
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Für die Rechnungsschreibung könnte der Datenflußplan in seiner knapp¬ 
sten Form etwa so aussehen: 



Kundendatei Artikeldatei Offene-Posten-Datei 

Einfacher Datenflußplan zur Rechnungsschreibung 

Programmablauf plan (PAP): 

Der Datenflußplan bezieht sich mehr auf die Hardware, während der 
Programmablaufplan (PAP) mit der zeichnerischen Darstellung des ge¬ 
planten Programmablaufes eindeutig softwarebezogen ist. Die Sinnbilder 
für den PAP sind ebenfalls nach DIN 66001 genormt. Im Datenflußplan 
wie im PAP gleichbedeutend sind die Sinnbilder für Anschlußpunkt und 
Bemerkung. Eine im PAP etwas andere Bedeutung hat das Rechteck 
(Wertzuweisung) und das Parallelogramm (Eingabe, Ausgabe). Neu im 
PAP sind die Sinnbilder für die Verzweigung und für das Aufrufen eines 
Unterprogramms. 


Verarbeitung und Ein-/Ausgabc: 




Verarbeitung allgemein: 

Berechnung (6 ♦ 2) und Wertzuweisung (8 nach X). 

Eingabe oder Ausgabe: 

Eingabe « in den Computer hinein (z. B. von Tastatur). 
Ausgabe • aus dem Computer heraus (z. B. auf Drucker). 


Verarbeitung manuell: 
z. B. Disketten Wechsel 


Verzweigung: 

Mit JA-Zweig (wenn T kleiner als 4) 
und NEIN-Zweig (sonst.) 

Schleifenbegrenzung: /~ 

Zählschleife namens ADD 
mehrmals durchlaufen. Z 


ADD ■ Schleifenname 
Z * Zähler- bzw. Laufvariable 


/ ADD \ JuiKiinuiiin 

AW -11^ * Zähler- bzw. 

ZEW-10 AW -Anfang»«! 
_ , I EW • End wen 


Unterprogrmm/Unterablauf: 
Unterprogramm namens RUND 
aufrufen. 


Detaillierung: 

Bild 4 In Bild 4 

SORT detaillierte 

Darstellung 
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Verbindungen und Darstellungshilfen: 

L_ J 

Grenzstelle: 

Programmanfang und -ende. 

- ► 

Verarbeitungsfolge : 

Zur direkten Verbindung der Sinnbilder. 

i f 

Verbindungsstelle (Konnektor): 

Zur Verbindung auseinanderliegender Sinnbilder. 


Sprung mit Rückkehr — >)[> — ► Sprung ohne Rückkehr 

-W— 

Unterbrechung einer Steuerung der Verarbei- 

anderen Verarbeitung *0 ' tungsfolge von außen 

—(E — 

Verfeinerung in einer weiteren Teildarstellung 

[einzeln 

Bemerkung: 

[EINGEBEN 

Zur Erklärung der Sinnbilder. 


Sinnbilder für Programmablaufpläne (PAPs) 


Die zum Teilschritt "Kunde prüfen" (obiger Schrittplan) zugehörige An¬ 
weisungsfolge kann als PAP z.B. so aussehen: 


Kundennummer eintippen 


Kunde auf Datei vorhanden? 


Wenn Kundennummer ungültig, 
dann Zurückverzweigen 



Struktogramm: 

Neben dem PAP wird immer häufiger ein weiteres Hilfsmittel zur zeich¬ 
nerischen Darstellung von Programmabläufen verwendet: das Strukto¬ 
gramm, auch Strukturdiagramm oder (nach dem Erfinder) Nassi-Shnei- 
derman-Diagramm genannt. Struktogramme haben wir bereits in Ab¬ 
schnitt 1.3.3 verwendet, um damit die grundlegenden Programmstruktu¬ 
ren darzustellen. 
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Verarbeitung allgemein (process) 

Verarbeitung 
(imperative) 


V 


Wiederholung ohne 
Bedingungspriifung 
(continuous iteration) 


Alternative (selective choice) 



bedingte Verarbeitung 
(monadic selective) 


einfache Alternative 
(dyadic selective) 


Folge 

Vj (serial) 


V 2 


Wiederholung (iterative) 


B 



V 



V 

B 



Wiederholung mit 
vorausgehender 
Bedingungsprüfung 
(pre-tested iteration) 


Wiederholung mit 
nachfolgender 
Bedingungsprüfung 
(post-tested iteration) 



mehrfache 
Alternative 
(multiple exclusive 
selective) 


Parallelverarbeitung (parallel) 


!Z_ 


V| 

... 

V„ 

N _ 

. / 


Abbruchanweisung (termination) 



Sinnbilder für Struktogramme nach DIN 66261 
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Im folgenden Struktogramm wird der Ablauf "Kunde prüfen" dargestellt: 



Beim Struktogramm sind die Programmstrukturen deutlich erkennbar: 
eine nicht-abweisende Schleife, die eine "Einseitige Auswahl" einschach¬ 
telt. 

Entwurf spräche bzw. Pseudocode: 

Neben diesen grafischen Darstellungsmöglichkeiten des Lösungsablaufes 
verwendet man oft eine Entwurfsprache als Pseudocode, um den Pro¬ 
grammentwurf umgangssprachlich darzustellen (Abschnitt 1.3.3.1.). Der 
oben als PAP sowie Struktogramm dargestellte Ablauf läßt sich in der 
Entwurfsprache wie folgt beschreiben: 

Wiederhole 

Tippe die Kundennummer ein 

wenn die Kundennummer in der Kundendatei gefunden wurde 
dann tue nichts 

sonst zeige eine Fehlermeldung am Bildschirm 
Ende-wenn 

bis eine Kundenummer als gültig erkannt wurde 
Programmierung: 

Der algorithmische Entwurf stellt häufig die unmittelbare Vorstufe zur 
Programmierung dar. 

1.3.7.3 Programmierung 

Programmieren heißt, den zeichnerisch und/oder verbal dargestellten Al¬ 
gorithmus in eine Programmiersprache umzusetzen und auszutesten. Da¬ 
bei werden die Schritte "Codierung", "Eingabe", "Übersetzung" und "Te¬ 
sten" zumeist wiederholt durchlaufen. Der Übersetzungslauf als geson¬ 
derter Schritt ist bei Sprachen mit Compiler, nicht aber bei solchen mit 
Interpreter erforderlich (vgl. Abschnitt 1.3.6.3). Das Austesten erfolgt als 
Computertest sowie Schreibtischtest. In Form eines Struktogramms läßt 
sich das Vorgehen beim Programmieren wie folgt darstellen: 
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Programmier-System am Bildschirm starten 



Codierung und Eingabe 
(« Editieren mittels Editor) 

Übersetzen 

(= Compilieren mittels Compiler) 

Wiederhole, bis Programm syntax-fehlerfrei 

Testen (Ausfuhren, Programmlauf) 


Wiederhole, bis Programm logisch fehlerfrei 


Programmieren im engeren Sinne als Struktogramm 
Dokumentation: 

Abschließend faßt man mit der Dokumentation alle Programmunterlagen 
als Gebrauchsanleitung zusammen: sei es als Anleitung für den Operator, 
damit dieser den Computer bei den Programmläufen auch richtig bedie¬ 
nen kann (Operator-Handbuch), oder als Anleitung für den Benutzer für 
die spätere Programmpflege und Programmkorrektur (Benutzer-Hand¬ 
buch). Zusätzlich zum Benutzer-Handbuch sollte eine Kurzanleitung vor¬ 
liegen, die nur die wichtigsten für den Umgang mit dem Programm not¬ 
wendigen Schritte und Anweisungen für den Interssenten bereithält. 

Programmentwurf im Mittelpunkt: 

Zentraler Teil der Programmentwicklung ist der Programmentwurf und 
nicht - wie es manchem DV-Einsteiger scheinen mag - die Programmie¬ 
rung bzw. Codierung in einer Programmiersprache. Es ist denkbar, daß 
die Codierung eines Tages automatisiert durchgeführt werden kann. 

Software-Engineering: 

Angesichts der steigenden Software-Kosten (Abschnitt 1.1.2) geht man 
immer mehr dazu über, die Programmentwicklung und dabei besonders 
den Programmentwurf industriell und ingenieurmäßig vorzunehmen: 
Software-Engineering lautet die darauf verweisende Begriffsbildung. Auf 
einige der im Rahmen des Software-Engineering eingesetzten 
Programmiertechniken sowie Entwurfsprinzipien gehen wir nachfolgend 
ein. 

1.3.7.4 Programmiertechniken und Entwurfsprinzipien 

Programmiertechniken werden durch Begriffe wie Modularisierung, Nor¬ 
mierung, Jackson-Methode, Top-Down-Entwurf, Buttom-Up-Entwurf, 
Unterprogrammtechnik, Menütechnik, Overlaytechnik und Strukturierter 
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Entwurf geprägt. Im folgenden werden diese grundlegenden Begriffe er¬ 
läutert: 

1) Die Modularisierung von Software berücksichtigt, daß ein in kleine 
Teile bzw. Moduln gegliedertes Problem bzw. Programm einfacher zu be¬ 
arbeiten ist. "Klein" heißt, daß ein Modul maximal 200 Anweisungen 
umfassen darf. Ein Modul ist ein Programmteil mit einem Eingang und 
einem Ausgang und kann selbständig übersetzt und ausgeführt werden. 
Moduln verkehren nur über Schnittstellen miteinander, über die Werte 
(Parameter genannt) vom rufenden an das aufgerufene Modul übergeben 
werden; ein Modul darf als Black Box nichts vom Innenleben eines ande¬ 
ren Moduls wissen. 

2) Die Normierung von Programmabläufen als Vereinheitlichung durch 
eine standardisierte Ablaufsteuerung wird bei der Entwicklung komplexer 
kommerzieller Software-Pakete vorgenommen, an der zumeist mehrere 
Mitarbeiter beteiligt sind. Jedes Softwarehaus hat seine eigenen Normen. 

3) Die Jackson-Methode geht bei der Programmentwicklung von der ex¬ 
akten Analyse der Datenstrukturen aus, um dann die entsprechenden 
Programm- bzw. Ablaufstrukturen zu entwerfen. Warum? In der 
kommerziellen DV sind die Daten zumeist bis in die Details vorgegeben, 
während die Abläufe den Daten gemäß formuliert werden müssen. An¬ 
ders ausgedrückt: Die Datenstruktur prägt die Programmstruktur . 

4) Dem Top-Down-Entwurf als Von-oben-nach-unten-Entwurf ent¬ 
spricht die Technik der schrittweisen Verfeinerung: Vom Gesamtproblem 
ausgehend bildet man Teilprobleme, um diese dann schrittweise weiter zu 
unterteilen und zu verfeinern bis hin zum lauffähigen Programm. Der 
Top-Down-Entwurf führt immer zu einem hierarchisch gegliederten Pro¬ 
grammaufbau. 

5) Der Bottom-Up-Entwurf als Gegenstück zum Top-Down-Entwurf geht 
als Von-unten-nach-oben-Entwurf von den oft verwendeten Teilproble¬ 
men der untersten Ebene aus, um sukzessive solche Teilprobleme zu in¬ 
tegrieren. Beide Entwurfsprinzipien werden in der Praxis zumeist kombi¬ 
niert angewendet. 

6) Die Unterprogrammtechnik wird in folgenden drei Fällen genutzt: 

- Ein Ablauf wird mehrfach benötigt. 

- Mehrere Personen kooperieren und liefern Unterprogramme ab. 

- Menügesteuerter Dialog (Menütechnik). 

Der Begriff des Unterprogramms bzw. der Prozedur entspricht dabei dem 
des Moduls. Die bekannteste Schnittstelle ist der Unterprogrammaufruf 
mit Parameterübergabe. 

7) Die Menütechnik erleichtert den benutzergesteuerten Dialog. Über das 
Menü als Auswahlübersicht steuert der Benutzer den Ablauf des 
Programmes, ohne zuerst alle Befehle lernen zu müssen. Das Menü als 
Gedächtnisstütze bei der Eingabe kann in Tabellenform alternativ zum 
Bildschirm, auf dem sonst der Dialog protokolliert wird, angeboten wer¬ 
den. Dies setzt den schnellen Wechsel zwischen den Bildschirmseiten 
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voraus. Oder das Menü wird als (Prompt-)Zeile ausgegeben, die zusätz¬ 
lich zum Dialog ständig am oberen Bildschirmrand stehen bleibt. 

Bei der Split-Screen-Technik werden Rechteckbereiche des Bildschirms 
wie eigenständige Bildschirme bzw. Fenster (Windows) behandelt. Über 
ein solches Fenstersystem kann der Benutzer Menüs an jeder Stelle des 
Bildschirms erscheinen lassen. 

Die Menütechnik kann sich auf das Arbeiten innerhalb eines Programms 
wie auch auf das Verbinden mehrerer Programme beziehen. Im letzteren 
Fall wird beim Einschalten des Computers bzw. beim Beenden eines Pro¬ 
gramms automatisch ein Menüprogramm geladen, das am Monitor alle 
verfügbaren Programme anzeigt; der Benutzer kann durch Tippen z.B. 
eines Buchstabens dann das gewünschte Programm laden, ohne sich um 
den Speicherort auf Diskette kümmern zu müssen. 

Hierarchische Menüs teilen eine Aufgabe in übergeordnete Menü-Ebenen 
auf. Im Hauptmenü stehen häufig verwendete Funktionen, und nach der 
Wahl erscheint das nächste Menü mit weiter detaillierten Funktionen. 
Pop-up-Menüs erscheinen auf Tastendruck, bieten mehrere Möglichkei¬ 
ten zur Auswahl an und verschwinden, sobald eine Wahl getroffen 
wurde. Pop-up-Menüs halten also nicht auf und lenken auch nicht ab: 
Sie erscheinen nur, wenn sie auch benötigt werden. 

Die Menüwahl erfolgt durch Klartexteingabe (Fehlerrisiko groß) bzw. 
durch Tasten eines Zeichens oder dadurch, daß der Cursor auf die ge¬ 
wünschte Position gesetzt wird und dann die RETURN-Taste gedrückt 
wird. Die Menüwahl vereinfacht sich weiter bei Einsatz von Lichtgriffel 
oder Maus (siehe Abschnitt 1.3.7.6). 

8) Bei der Overlaytechnik werden Moduln überlagert (= overlay). Dies ist 
z.B. dann erforderlich, wenn der Hauptspeicherplatz nicht ausreicht, um 
alle Moduln gleichzeitig aufzunehmen. Das im Hauptspeicher stehende 
Modul ruft ein anderes Modul auf, das dann von einem Externspeicher 
geladen und dem rufenden Modul überlagert wird. 

9) Der strukturierte Entwurf bedeutet, daß ein Programm unabhängig von 
seiner Größe nur aus den vier (in Abschnitt 1.3.3 erklärten) grundlegen¬ 
den Programmstrukturen aufgebaut sein darf: 

- Folgestrukturen 

- Auswahlstrukturen 

- Wiederholungsstrukturen 

- Unterprogrammstrukturen 

Dabei soll auf unbedingtes Verzweigen mittels GOTO verzichtet werden. 
Jede Programmstruktur bildet einen Strukturblock. Blöcke sind entweder 

- hintereinander angeordnet oder 

- vollständig eingeschachtelt. 

Die teilweise Einschachtelung (Überlappung) ist nicht zulässig. Sogenannte 
"blockorientierte Sprachen" wie Pascal und Modula-2 unterstützen das 
Prinzip des strukturierten Entwurfs weit mehr als die "unstrukturierten 
Sprachen" wie BASIC und APL. 
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10) Strukturierte Programmierung: Diese nur stichwortartig dargestellten 
Prinzipien dürfen nicht getrennt betrachtet werden; unter dem Informa¬ 
tik-Sammelbegriff 'strukturierte Programmierung’ faßt man sie zu einem 
heute allgemein anerkannten Vorgehen zusammen. Die tragenden Prinzi¬ 
pien sind der Top-Down-Entwurf mit der schrittweisen Verfeinerung ei¬ 
nerseits und der strukturierte Entwurf mit der Blockbildung andererseits. 

1.3.7.5 Programmgeneratoren 

Ein Programmgenerator hat als Zwischenlösung seinen Standort zwischen 
der Programmierung in einer höheren Programmiersprache (BASIC, Pas¬ 
cal) einerseits und dem Anpassen eines gekauften Anwenderprogramms 
durch Änderung der dafür angegebenen Parameter andererseits. So kön¬ 
nen im Dialog Benutzer-Computer Masken (Formulare) sowie Programm¬ 
beschreibungen erstellt werden, aus denen später z.B. BASIC-Anweisun¬ 
gen generiert, d.h. erzeugt werden. Die so erzeugten BASIC-Programme 
sind über einen Interpreter lauffähig, können ggf. aber auch noch compi- 
liert werden. 

Entsprechend spezialisiert werden Programmgeneratoren als Maskengene¬ 
rator, Listengenerator, Grafikgenerator usw. bezeichnet und vor allem im 
Rahmen von Standard-Software bereitgestellt. Zum Maskengenerator ein 
Beispiel: Soll eine Maske für die Kundendatei erstellt werden, dann wird 
nach Aufruf des Generators auf dem Bildschirm eine Grundeinteilung 
vorgenommen. Der Benutzer setzt den Cursor dann auf die Stelle, an der 
ein Datenfeld angelegt werden soll, gibt die Bezeichnung ein (NAME) 
sowie die Feldlänge (mit Cursor 20 Stellen nach rechts fahren). Auf diese 
Weise wird eine Bildschirmmaske aufgebaut. Der Generator kann dann 
eine der Maske (als Blankoformular vorzustellen) entsprechende Datei 
erzeugen bzw. einrichten. 

1.3.7.6 Kleine Mauskunde 

Durch grafikorientierte Benutzeroberflächen wie Lisa-Umgebung, GEM, 
Windows und Sidekick wird die Maus als Bindeglied zwischen Benutzer 
und Bildschirm-Schreibtisch immer mehr verbreitet. In der folgenden 
Mauskunde werden wichtige Begriffe kurz erklärt. 

1) Anklicken: Durch Drücken der Maustaste wird das Objekt, auf das der 
Mauszeiger gerade zeigt, aktiviert und somit gezeigt bzw. ausgeführt. 

2) Desktop: Der Bildschirm bildet einen Schreibtisch nach, auf dem sich 
die Arbeitsmittel (dargestellt als Pictogramme) und der Papierkorb be¬ 
finden. Man arbeitet mit Objekten (Inhaltsverzeichnis, Ordner, Frame 
bzw. Dokument), die man durch Anklicken mit der Maus öffnen und in 
Fenstern betrachten kann. 
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3) Dialogbox: Umrandeter Kasten, in dem Fehlerhinweise, Antworten 
bzw. Protokolle gezeigt werden. 

4) Dokument: ... steht für Datei, die mittels Pictogramm als Papierblatt 
mit umgeknickter Ecke angezeigt wird. 

5) Editierfeld: Unterlegtes Feld, in das der Benutzer seine Eingabe ein¬ 
trägt. 

6) Fenster: Bereich des Bildschirms, in dem Information unabhängig von 
anderen Bildschirmbereichen (Fenstern, Windows) gezeigt und bearbeitet 
werden kann. 

7) Frame: Rahmen, dessen Inhalt ähnlich wie bei einem Fenster bearbei¬ 
tet werden kann (speziell z.B. beim Paket Framework II). 

8) Maus: Handliches Gerät, durch dessen Bewegen auf der Tischunter¬ 
lage ein Mauszeiger auf dem Bildschirm verschoben wird. Die Maus hat 
ein oder mehrere Knöpfe; auf Knopfdruck wird das Objekt gezeigt bzw. 
ausgeführt, auf das der Mauszeiger gerade zeigt (anklicken). 

9) Mausknopf: Dient dem ein- oder mehrfachen Anklicken sowie dem 
Verschieben eines Objekts: Beim Verschieben bewegt man das Picto¬ 
gramm selbst (z.B. in den Papierkorb zwecks Löschen). 

10) Objekte: Dateien (Dokumente), Ordner, Schalter, Papierkorb usw., 
die als Pictogramme auf dem Bildschirm gezeigt und durch Anklicken 
ausgeführt werden. 

11) Ordner: Objekt, das als Inhaltsverzeichnis auf weitere Objekte ver¬ 
weist. Enthalten Ordner weitere Ordner, spricht man von Subdirectories 
(hierarchisches Inhaltsverzeichnis). 

12) Papierkorb: Durch Verschieben eines Objektes in den Papierkorb 
(Mülleimer, Trash Can) wird es gelöscht. Objekte können aus dem Pa¬ 
pierkorb entnommen und eingefügt (insert) werden (z.B. bei Lisa, Word), 
oder aber sie sind verloren (z.B. bei GEM). 

13) Pictogramm: Grafische Darstellung eines Objekts, auch als Icon (für 
Bildchen) bezeichnet. 

14) Pull-Down-Menü: Eine Menüleiste (menu bar) am oberen 
Bildschirmrand nennt Wahlmöglichkeiten, die durch Anklicken mit der 
Maus heruntergezogen und damit geöffnet werden können. 

1.3.8 Anwender-Software einsetzen 

Der Anwender hat drei Möglichkeiten, seinen Personalcomputer mit Soft¬ 
ware zu versorgen: Er kann selbst Programme entwickeln und den Com¬ 
puter als frei programmierbares Gerät nutzen - darauf sind wir im vor¬ 
angehenden Abschnitt 1.3.6 eingegangen. Er kann aber auch fremde Soft- 
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ware-Produkte kaufen: sei es in Form von individueller Software, die 
(entsprechend teuer) genau nach seinen Vorgaben entwickelt wird, sei es 
in Form von Standard-Software, die zwar preisgünstiger ist, aber das Ri¬ 
siko birgt, die eigenen Organisationsstrukturen anpassen zu müssen. Als 
Kompromiß zwischen der kompletten Individuallösung einerseits und der 
standardisierten Allgemeinlösung andererseits versucht man, individuelle 
Software auf Standardbasis zu entwickeln. 

1.3.8.1 Menügesteuerter oder kommandogesteuerter Dialog 

Beim Einsatz fremder Software muß der Benutzer sicher und komfortabel 
durchs Programm geführt werden, es kommt also auf die Benutzer¬ 
führung an. Dabei bieten sich menü- und kommandogesteuerte Anwen¬ 
dungen an. 

Menüsteuerung: 

Der Anfänger wird die Menüsteuerung schätzen; er wird über die ihm 
gerade zur Verfügung stehenden Eingabemöglichkeiten - im Menü zu¬ 
sammengefaßt - am Bildschirm jederzeit informiert, mehr noch: Diese 
Möglichkeiten sind eingegrenzt, um den Benutzer relativ eng zu führen. 
Der Anfänger kann sich so ohne langes Handbuch-Studium an den 
Programmeinsatz wagen. Kennt er sich einmal im Programm aus, so wird 
der Weg durch Menüs und Menü-Ebenen allerdings auch als Hemmnis 
empfunden. 

Kommandosteuerung: 

Dann bietet sich die Kommandosteuerung über Kommandos an, die in 
einem Handbuch aufgelistet sind und vom Benutzer wahlfrei eingetippt 
werden können - mit dem Risiko entsprechender Fehlermeldungen 
natürlich. 

Kombination: 

Gute Anwenderprogramme können beide Arten der Benutzerführung 
vorsehen: Arbeitet der Benutzer fehlerlos, dann läuft das Programm kom¬ 
mandogesteuert ab, um bei häufiger auftretenden Fehlern in einen menü¬ 
gesteuerten Ablauf zu wechseln. 

Oft werden auch zwei Bildschirmseiten vorgesehen: eine Hauptseite mit 
dem eigentlichen Dialog sowie eine zusätzliche Hilfsseite mit Kommen¬ 
taren und Texthilfen, zwischen denen der Benutzer jederzeit hin und her 
springen kann. 

Die Dialogsteuerung über Menü und Kommando ist bei der System-Soft¬ 
ware natürlich ebenso zu finden wie bei der Anwender-Software. So ist 
z.B. das Betriebssystem UCSD rein menügesteuert. Dies steht im Gegen¬ 
satz zur Kommandosteuerung bei MS-DOS und CP/M. 

Benutzeroberflächen wie GEM und Windows verwenden die Grafik, um 
die Dialogsteuerung weiter zu vereinfachen. 
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1.3.8.2 Einige Programm-Qualitätsmerkmale 

Es soll hier kein Merkmalskatalog formuliert werden (dies auch im Hin¬ 
blick darauf, daß solche Merkmale für Software äußerst schwer meßbar 
sind). Im folgenden werden einige praktikable Einzeltips angegeben: 

Turn-Key-Paket: Wird Anwender-Software zu einem Turn-Key-Paket 
geschnürt verkauft, so startet das (Menü-)Programm automatisch sofort 
nach dem Einschalten des Computers (Programmladen sowie Betriebssy¬ 
stem-Kenntnisse sind dann nicht erforderlich). 

Beim Scrolling rutscht der Bildschirminhalt um eine Zeile hoch, wenn 
der Cursor unten den Bildrand erreicht hat. Zum schnellen Durchblättern 
zusammenhängender Texte kann dieses Durchrollen von Information 
vorteilhaft sein. Andernfalls wird man den Bildschirm abschnittsweise 
total löschen und oben am Bildschirm neu beginnen. 

Beim Screen Editing kann der Benutzer den Cursor an jede beliebige 
Bildschirmposition bewegen, um dort dann etwas zu korrigieren oder neu 
einzugeben. Der Bildschirm dient als Arbeitsblatt, -seite bzw. Formular. 
Sehr häufig bleibt am Bildschirmrand eine Menüzeile (auch Prompt- oder 
Systemzeile genannt) permanent stehen, um den Benutzer über Steuer¬ 
ungsmöglichkeiten (Kommandos) und aktuelle Parameter (wie Zeilenlänge 
oder freien Speicherplatz) zu informieren. 

Die Zeichendarstellung darf nicht zu verwirrend sein. Häufige Invers- 
Felder (dunklere Schrift auf hellem Hintergrund) führen z.B. zu erhöhter 
Augenbelastung und sollten sparsam verwendet werden. 

Eine benutzerfreundliche Fehlerbehandlung muß alle möglichen Fehler 
abfangen (Plausibilitätskontrollen). 

Zur Sicherheit müssen Tasten, die zum Absturz führen (z.B. ESC-Taste), 
gesperrt sein. Eine Eingabe, auch nicht die "berühmte" Division durch 
Null, darf dabei zum Aussteigen führen (Deadlock-Situation), die ein 
Abschalten und Neustarten erforderlich macht. Zur Sicherheit zählt auch 
die Datenschutzfähigkeit eines Programms. 

Die Zuverlässigkeit nimmt den sicher höchsten Rang ein: Das raffinierte¬ 
ste Programm ist wertlos, wenn es die Aufgaben nicht zuverlässig löst. 

Der Software-Qualitätssicherung wird heute im Rahmen des Software- 
Engineering mehr und mehr Beachtung geschenkt. 
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1.3.8.3 Vier Standard-Programmpakete 

Software-Tools: Die vier Programme 

- Tabellenkalkulation 

- Textverarbeitung 

- Datei bzw. Datenbank 

- Grafik 

werden auch als Tools bzw. Werkzeuge bezeichnet. Sie werden als eigen¬ 
ständige Programme oder als integrierte Programmpakete angeboten. Die 
folgende Software-Pyramide zeigt, daß die Tools zwischen den Program¬ 
miersprachen und den (fertigen) Anwenderlösungen einzuordnen sind. 


Individuelle 

Anwendungen 





Standard- 

Anwendungen 




Werkzeuge bzw. Tools 
(dBASE, Multiplan, Word, Chart. 
Pakete: Lotus 1-2-3, Framework) 



Programmiersprachen 

(BASIC, COBOL, Pascal, Modula- 

2, Prolog) 


Betriebssysteme 

(8-Bit: CP/M, 16-Bit: MS-DOS, Unix) 


Hardware, Maschinensprache 
(Assembler des jeweiligen Systems) 


Software-Pyramide mit sechs Ebenen der Nutzung eines PCs 


Tabellenkalkulationsprogramme als "Spread Sheets" bzw. "Ausgebreitete 
Papierbogen" übertragen alles das, was bislang mit Bleistift, Papier und 
Taschenrechner vorgenommen wurde, in den Hauptspeicher und auf den 
Bildschirm. Der Benutzer baut jedes Arbeitsblatt als Tabelle auf, kann in 
die Tabellenzeilen und -spalten numerische oder auch Textwerte eintra¬ 
gen und durch eine Vielzahl von Formeln verknüpfen. Bei "Visicalc" als 
dem ersten größeren Kalkulationsprogramm werden die Tabellenelemente 
ähnlich dem Schachbrett (Namen A1,A2,A3,...) angesprochen; "Multiplan" 
als Konkurrenzprogramm von Microsoft ermöglicht dies mittels einfacher 
Cursor-Positionierung am Bildschirm. Arbeitsblätter können auf einem 
externen Speicher aufbewahrt werden. Tabellenkalkulationsprogramme 
lassen sich "zweckentfremden": Trägt man Text anstelle von Zahlen in die 
Tabelle ein, so kann leicht ein kleines Informationssystem realisiert wer- 
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den. Genauso sind Anwendungen zur Fakturierung, zum Bestellwesen, 
zur Bilanzierun usw. denkbar. Das Beiwort "Kalkulation" verweist also 
eher auf die Ursprünge der Tabellenkalkulationsprogramme als auf deren 
heute universellen Nutzungsmöglichkeiten. 

Textverarbeitungsprogramme für Personalcomputer sind aus den Editoren 
entstanden, also aus den Programmhilfen zum Eingeben und Aufbereiten 
von Programmtext am Bildschirm. Man hat sie zur Verarbeitung anderer 
Dokumente (Briefe, Rechnungen, Manuskripte, Formulare usw.) weiter¬ 
entwickelt. Damit treten sie in Konkurrenz zur Schreibmaschine, zum 
Text-Automaten sowie zur Großrechner-Textverarbeitung. Die 
Textverarbeitung umfaßt die Teilprogramme Editor, Ausgabeformatierer 
und Verarbeitung; diese Programme können zu einem Paket integriert 
oder getrennt sein. 

Editor als Eingabe- und Bearbeitungsprogramm: 

Der Bildschirm wird ähnlich wie eine Lupe über den Text bewegt bis zu 
einem Bildschirmausschnitt, der cursorgesteuert zu bearbeiten ist (ver¬ 
schieben, einfügen, kopieren, Rand ausgleichen usw.). 

Formatierer zur Aufbereitung der Druckausgabe: 

Man unterscheidet die folgenden zwei Arten von Formatierern. Bei der 
ersten Art erscheint der Text am Bildschirm so, wie er später ausge¬ 
druckt wird. Bei der zweiten Art sind in den Bildschirmtext Befehle zur 
Steuerung des Druckformates eingefügt. Bei der ersten Art wird "ge¬ 
druckt wie gezeigt". Oft ist dies aber kaum exakt einzuhalten (Beispiel: 
120 Zeichen je Druckzeile; Bildschirmzeile 80 Zeichen; Ausgabe-Text aus 
mehreren Dateien). 

Eigentliches Verarbeitungsprogramm: 

Dieses richtet sich nach den Anforderungen der unterschiedlichen Benut¬ 
zer wie Sekretärin, Abteilungsleiter, Schriftsteller, Schriftsetzer: Textbau¬ 
steine als häufig vorkommende Textteile speichern, Serien- sowie Ganz¬ 
briefe erstellen, Formulararbeiten, Textdateien anlegen, Autorenkorrektur 
usw. 

Desktop-Publishing: 

Dieses Gebiet der Textverarbeitung wird auch als CAP (Computer Aided 
Publishing) bezeichnet und wurde mit dem Macintosh (Laserdrucker, 
Grafikfähigkeit, Benutzeroberfläche, Grafiksprache Postskript, Programm 
Pagemaker) bekannt. Bei der "Druckerei auf dem Schreibtisch" stellt der 
Ausdruck der Laserdruckers entweder das Endprodukt dar, oder er dient 
als Vorlage für eine Belichtungsmaschine wie z.B. Linotype. 

Datei/Datenbank: Nach den Programmen zur Tabellenkalkulation und 
Textverarbeitung nun zur Datei/Datenbank, deren Grundlagen bereits in 
Abschnitt 1.3.5 dargestellt wurden. 
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Die kommerziellen Programm-Pakete hierzu werden unter den unter¬ 
schiedlichsten Bezeichnungen angeboten, z.B. als Dateiverwaltung, Da¬ 
tenmanager, Datenbankmeister, Datenbank-System oder schlicht als Da¬ 
tei-System. Da solche Begriffe kaum etwas aussagen, ist es sinnvoll, ein¬ 
zelne Eigenschaften dieser Software-Produkte wie folgt zu überprüfen: 

Dateiaufbau: Anzahl der gleichzeitig geöffneten Dateien? Satzanzahl einer 
Datei? Anzahl der Datenfelder je Satz? Feste Satzlänge? Datentypen? 
Maximale Feldlänge? Maximale Dateigröße? Eine Datei auf mehreren 
Disketten? 

Systemverwaltung: Schnittstelle zu höheren Programmiersprachen? In 
Mehrplatz-Umgebung einsetzbar? Abfragesprachen, Listen- bzw. Pro¬ 
grammgeneratoren? Dynamische Dateiverwaltung? Kompatibilität zu an¬ 
deren Dateien (z.B. aus Textverarbeitung)? Datensatzaufbau nachträglich 
änderbar? Implementierungen für welche Mikros? Datei-Sicherheits¬ 
kopien leicht erstellbar? Daten nach Löschen wiederherstellbar? Daten¬ 
schutz durch Datei- bzw. Satzpaßwort? Realisierung als Datenbankma¬ 
schine? Eingebaute eigene Programmiersprache? 

Speicherung: Aufwand zum Neueinrichten der Datenbank? Cursorsteue¬ 
rung? Datenprüfung bei Eingabe? Daten aus anderen Dateien kopierbar? 
Speicherung satz-, block- oder dateiweise? Eingabefehlerkorrektur mög¬ 
lich? Ablegen als Binärdatei oder Textdatei? 

Zugriff: Zugriffsmodus direkt oder indirekt? Anzahl der Suchbegriffe? 
Schlüssel aus einem oder mehreren Datenfeldern bestehend? Sortierbe¬ 
griffe für wieviele Datenfelder? Sortierprogramme? Index intern als Ta¬ 
belle? Möglichkeiten zur Datenausgabe? Ausgabeeinheiten für Listen? 
Zwischensummenbildung in Listen möglich? 

Zum Grafikprogramm als viertem Standard-Paket: Programme dieser 
Kategorie erlauben es, Kuchen-, Säulen- sowie Liniengrafiken menüge¬ 
steuert über einen hochauflösenden Bildschirm und z.B. einen Matrix¬ 
drucker mit Einzelpunktansteuerung zu erstellen und auszugeben. Die 
Skalierung der Bilder kann im Dialog festgelegt werden. Oft können 
dreidimensionale Grafiken bzw. räumliche Formen erzeugt werden. Ge¬ 
rade für kommerzielle Veranschaulichungen sind Grafikprogramme mit 
den statistischen Grundfunktionen von Vorteil. 

Schnittstellen für Tools: Ein Grafikprogramm kann nur dann sinnvoll ge¬ 
nutzt werden, wenn man Daten aus anderen Programmen übergeben 
kann. Wir kommen so zur Frage der Verbindung bzw. Kompatibilität 
dieser Programme. 

Sollen Tabellenkalkulation, Textverarbeitung, Datenbank sowie Grafik 
nicht isoliert, sondern als eine Einheit genutzt werden, müssen entspre¬ 
chende Schnittstellen zu den Programmen gegeben sein. Zur Verbindung 
dieser Programme ein Beispiel: 
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In einem Tabellenkalkulationsprogramm verknüpft man Zahlen, um diese 
dann an ein Grafikprogramm zwecks Diagrammdarstellung zu übergeben. 
Anschließend wird über das Textverarbeitungsprogramm ein Bericht ver¬ 
faßt, in den diese Zahlen als Tabelle wie auch als Diagramm bildlich ein¬ 
gebunden sind. Schließlich kann man die Teile dieser Arbeit über das 
Dateiprogramm extern und langfristig speichern. 

Wie können die vier Programme nun verbunden werden? 

Zum Beispiel über Textdateien (alle Zeichen als Text im ASCII-Code 
gleichermaßen dargestellt) als gemeinsamer Schnittstelle. Die Steuerung 
kann über ein übergeordnetes Menüprogramm erfolgen, das die einzelnen 
Programme auf ruft und den Datenaustausch überwacht. 

Bei integrierten Paketen wird die Schnittstelle zur Verknüpfung von 
Text, Tabelle, Datei und Grafik natürlich im Programm mitgeliefert. 

1.3.8.4 Teillösung und Gesamtlösung im Betrieb 
Integrierte DV: 

Wird ein Personalcomputer im kleineren Betrieb als Allzweck-System 
eingesetzt, dann sicher mit dem (Fern-)Ziel, sämtliche betrieblichen 
Funktionen wie Materialwirtschaft, Betriebsabrechnung, Finanzbuch¬ 
haltung, Personalwesen sowie Auftragsbearbeitung über ein Software- 
Paket zu bearbeiten: Man spricht dabei von "integrierter DV" (vgl. Ab¬ 
schnitt 1.3.5.5). Auf dem weiten Weg zu einer solchen Gesamtlösung wird 
man zunächst als Teillösung einzelne Funktionen auf die DV überneh¬ 
men: so die Fakturierung der Ausgangsrechnungen mit Kunden-, Arti¬ 
kelstamm- und Offene-Posten-Datei, die später in die Auftragsbearbei¬ 
tung integriert werden kann. Oder als weitere Teillösung das Personal¬ 
wesen mit Lohn- und Gehaltsabrechnung mit der späteren Anbindung 
zur Finanzbuchhaltung mit Kreditoren-, Debitoren- und Sachbuchhal¬ 
tung. 
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Personalcomputer : 


-Buchhaltung: 

- Kreditoren, Debitoren, Sachkontenverwaltung 

- Offene Posten, Bilanz, Erfolgsrechnung, ... 

-Materialwirtschaft: 

- Permanente Inventur 

- Lagerbestandsführung, Bestellwesen, ... 

-Auftragsbearbeitung: 

- Auftragsverwaltung, Erfassung 

- Rückstände, Fakturierung, ... 

-Personalwesen: 

- Stammdatenverwaltung, Gehalt 

- Überweisungsträger, Nachweislisten, ... 

-Betriebsabrechnung: 

- Nachkalkulation, Umsatzstatistik 

- Kostensätze, ... 

Integrierte Datenverarbeitung als Ziel 

Branchenlösungen: Anwender-Software, die eine integrierte Bearbeitung 
aller innerbetrieblichen Vorgänge ermöglichen soll, wird immer häufiger 
als Branchenlösung angeboten. Diese ist auf eine bestimmte Branche ge¬ 
richtet. Beispiele: Handwerksbetrieb, Rechtsanwaltskanzlei, Immobilien¬ 
firma, Großhandel, Versicherung, Zahnarztpraxis, Einzelhandel, Leasing 
oder Vertreter. 

1.3.8.5 Nicht nur am Rande: Spielprogramme 

"Immerhin noch besser als das nur passive Fernsehen" - so wird das Vor¬ 
dringen der "Arcade-Games" genannten, computergesteuerten Spiele von 
der Spielhalle ins Wohnzimmer sehr häufig kommentiert. 

Gespielt wird mit reinen Spielautomaten ("rein", weil sie ausschließlich 
zum Spielen da sind; "Automat", da sie nicht frei programmierbar sind 
und deswegen strenggenommen auch nicht als Computer bezeichnet wer¬ 
den dürfen) oder mit Personalcomputern, die hardwaremäßig durch Steu¬ 
erknüppel (Joystick), Auslösetaste, Lichtgriffel usw. entsprechend aus¬ 
gestattet sind. Gerätehersteller und spezialisierte Softwareproduzenten 
teilen sich den Markt. Angeboten werden die Spielprogramme dabei auf 
Einsteckmodul (Firmware) und auf Kassette wie Diskette (Software). Die 
vom Hersteller programmierten ROM-Moduln sind sehr einfach zu 
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bedienen (Modul in den Schacht stecken und Programm starten) und vom 
Benutzer nicht zu kopieren. Da immer häufiger kommerziell genutzte 
Personalcomputer zum Spielen benutzt werden, wird das Spielangebot auf 
Diskette bestimmt nicht abnehmen. 

Gemeinsam mit und gegen den Computer kann auf unterschiedliche 
Weise gespielt werden: 

Geschicklichkeitsspiele: Übernahme altbekannter Spiele auf den Compu¬ 
ter. 

Neue Spielarten: Spiele wie Pac Man und Pillenfresser sind erst durch 
den Computer möglich geworden (Bewegung, hochauflösende Grafik). 
Abenteuer spiele: Von der Wirklichkeit in die Phantasiewelt am Bild¬ 
schirm. 

Simulations- und Rollenspiele: Modellbildung der Wirklichkeit; Planspiel¬ 
technik. 

Spezielle Kinderspiele: ... auch Mickey Mouse und Sesamstraße. 
Schachspielprogramme: Schon weniger als "Spielzeug" abzutun. 

Lehr- und Lernspiele: Fremdsprachen erlernen, naturwissenschaftliche 
Experimente, Computer-Unterstützter Unterricht (CUU), ... 

Bleiben die Unterhaltungsspiele, die weder die Kreativität anregen noch 
das Denkvermögen fordern, weiter die Verkaufsschlager? Werden in Zu¬ 
kunft auch die Lehr-/Lernspiele nachgefragt? Wird der Computer als 
"perfekter Gespiele" den Menschen als "menschlich nicht-perfekten Spiel¬ 
partner" noch mehr verdrängen können? 

In jedem Falle positiv: Ganz im Gegensatz zum Konsumieren ist das Ent- 
werfen und Programmieren neuer Spielprogramme ein sehr anregendes 
und kreatives Unterfangen. 
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1.4 Firmware = halb Hardware + halb Software 


Als Firmware (feste Ware) hatten wir alle Information bezeichnet, die an 
der Nahtstelle zwischen Hardware und Software in computerverständli¬ 
cher Form gespeichert vorliegt (vgl. Abschnitt 1.1.1). Speichermedium für 
die Firmware ist der ROM als Festwert-Speicher. Für den ROM-Her- 
steller, der Information in den ROM speichert, handelt es sich dabei um 
Software; für den Benutzer dagegen, der den ROM z.B. als Steck-Modul 
kauft, sind die Daten und Programme wie Hardware, da er sie nur an¬ 
wenden (also lesen), nicht aber verändern (also beschreiben) kann. 

1.4.1 IC als Integrierter Schaltkreis 

Beim Öffnen des Gehäuses eines Personalcomputers entdeckt man in je¬ 
dem Fall die folgenden vier Teile: 

- Ein Netzteil als großes Teil zur Stromversorgung 

- Platinen als Leiterplatten mit montierten Schaltkreisen (Chips) 

- Verbindungsleitungen 

- Stecker als Schnittstellen zum Kontakt mit der "Außenwelt" 

Wichtig sind die Chips: Ein Chip ist ein kleines Plättchen aus Silizium, 
auf das im Zuge der Herstellung bestimmte Schaltelemente zu einer un¬ 
trennbaren Einheit eingeschmolzen bzw. integriert werden. Deshalb be¬ 
zeichnet man den Chip auch als Integrierten Schaltkreis mit der Abkür¬ 
zung IC für "Integrated Circuit". Genaugenommen schmelzt man auf 
einen Chip mehrere Schichten aus jeweils verschiedenen Stoffen ein, de¬ 
ren Strukturen dann ein Verhalten ergeben, das einem Transistor, 
Kondensator, Widerstand usw. entspricht. 

IC als Logikbaustein bzw. aktiver Baustein: 

- Mikroprozessor 

- Funktionen von Steuer- und Rechenwerk auf einem Chip 
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IC als Speicherbaustein bzw. passiver Baustein: 

- Speicher ROM 

- Hersteller hat Information fest gespeichert 

- Anwender kann nur lesen 

- Zumeist Programme gespeichert 

- Speicher RAM 

- Hersteller liefert Baustein ohne Inhalt 

- Anwender kann schreiben und lesen 

- Programme wie Daten speicherbar 

Zwei grundsätzliche Verwendungsmöglichkeiten von ICs 

Das Siliziumplättchen als Trägerkristall ist stets in ein Gehäuse mit z.B. 
16 Füßen (Pins) als Anschlüsse eingebaut. Je nach Anordnung der 
Bauelemente kann man einen Chip als Logikbaustein oder als Speicher¬ 
baustein verwenden: 

IC als Logikbaustein: Wird ein Chip als aktiver Baustein zur Ausführung 
von Befehlen verwendet, dann nennt man den Chip Logikbaustein (weil 
nach einer bestimmten Ablauflogik vorgegangen wird) oder kurz Mikro¬ 
prozessor. Der erste Mikroprozessor wurde 1970 auf den Markt gebracht. 

IC als Speicherbaustein: Der Chip als Speicherbaustein zur Speicherung 
von Daten und Programmen wurde erst später entwickelt. Zwei Speicher¬ 
arten unterscheidet man: Bei dem mehrfach erwähnten Speicher ROM 
(Read Only Memory) als Nur-Lese-Speicher kann der Benutzer nur le¬ 
sen, da die Programme als Firmware fest im ROM gespeichert sind. Im 
Gegensatz dazu ist der Speicher RAM (Random-Access-Memory) ein 
Schreib-Lese-Speicher, d.h. ein Direkt-Zugriff-Speicher. Hauptspeicher 
von Personalcomputern liegen als RAM-Speicher vor und nehmen das 
Anwenderprogramm sowie die zu verarbeitenden Daten auf. 

1.4.2 Prinzipieller Aufbau eines Mikrocomputers 

Aufbau: 

Ein Mikro- bzw. Personalcomputer ist im Prinzip genauso aufgebaut wie 
jeder andere Computer auch (vgl. Abschnitt 1.2.2.1), nur liegen die In¬ 
ternspeicher als Speicher RAM bzw. ROM und die CPU als 
Mikroprozessor vor. Der Prozessor besteht dabei aus der ALU (Arithme- 
tic Logic Unit bzw. Rechenwerk), dem Leitwerk und den Registern als 
Speichereinheiten. Ein I/O-Baustein regelt den Datenaustausch mit den 
jeweiligen Ein/-Ausgabegeräten, ein Datenbus die Übertragung von Da¬ 
ten (Ziffern, Buchstaben und Befehlen) und ein Adreßbus die Übertra¬ 
gung von Speicherplatzadressen. 
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Interner und externer Datenbus: 

Der Mikrocomputer hat interne Speicher RAM und ROM (als Hauptspei¬ 
cher, Arbeitsspeicher, Memory oder Kurzzeitgedächtnis bezeichnet) ei¬ 
nerseits und externe Speicher wie z.B. eine Disketteneinheit andererseits. 
Deshalb unterscheidet man zwischen dem internen und dem externen Da¬ 
tenbus: Über den internen Datenbus werden Daten zwischen der ALU, 
dem Leitwerk, den Registern und den Speichern RAM und ROM trans¬ 
portiert, während der externe Datenbus die Datenübertragung zu den Ex¬ 
ternspeichern übernimmt, also zu einer Diskette oder einer Hard Disk. 
Entsprechend gibt es auch einen internen und einen externen Adreßbus. 



Aufbaumodell eines Mikro- bzw. Personalcomputers 


Ablauf einer Programmes: Nach dem Start schickt der Mikroprozessor 
über den Adreßbus die Adresse der ersten Programmbefehls an den Spei¬ 
cher, in dem sich das Programm befindet. Dann transportiert der Spei¬ 
cher den unter dieser Adresse gefundenen Befehl über den Datenbus an 
den Mikroprozessor. Nach Ausführung des Befehls schickt dieser wie¬ 
derum die Adresse des zweiten Programmbefehls an den Speicher usw. 

1.4.3 Typen von Mikroprozessoren 

Es gibt Mikroprozessoren mit 8-, 16 und 32-Bit-Struktur. Da der Mikro¬ 
prozessor als "Herz des Computers" die Computereigenschaften entschei¬ 
dend prägt, unterscheidet man auch für Mikrocomputer diese drei Typen. 

1.4.3.1 8-Bit-Mikrocomputer 

Wortbreite: "Das ist ein 8-Bit-Computer". Damit ist ein Computer mit ei¬ 
nem 8-Bit-Mikroprozessor bzw. einer 8-Bit-CPU gemeint. Die 8 Bit als 
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Wortbreite des Prozessors kann als elementarer Denkinhalt des Computers 
aufgefaßt werden. Warum? 

Der Datenbus transportiert Daten und Befehle und besteht aus acht pa¬ 
rallelen Leitungen. Übertragen wird zeichenweise: Der Buchstabe "K" 
wird im ASCII-Code als 01001011 (1. Leitung 1, 2. Leitung 1, 3. Leitung 
0, ...) durch den Datenbus gesendet. Mit den acht Bits bzw. den acht 
Leitungen des 8-Bit-Datenbus können also genau 256 (gleich 2 hoch 8) 
Zeichen vom Computer unterschieden werden. Für die Verarbeitung im 
ASCIICode ist diese Zahl von 256 gerade passend. Es genügt, 256 ver¬ 
schiedene Zeichen unterscheiden zu können. 

Beim Adreßbus sieht dies anders aus: Durch diesen Bus gelangen nicht 
die Daten selbst, sondern deren Hausnummern bzw. Adressen, unter 
denen sie im Speicher abgelegt sind (jeder Speicher ist fortlaufend 
durchnumeriert mit Speicherplatz 1, Speicherplatz 2, Speicherplatz 3, ...). 
Damit bestimmt die Anzahl der Adreßbus-Leitungen die Anzahl der 
Speicherplätze, die der Computer unterscheiden bzw. adressieren kann. 
Ein 8-Bit-Adreßbus kann nur 256 Speicherplätze direkt adressieren. Da 
dies viel zu wenig ist, verwenden die gängigen 8-Bit-Mikroprozessoren 
in der Regel einen Trick: Sie bauen Adressen aus zwei Bytes auf, die 
nacheinander über den Adreßbus zum Hauptspeicher geschickt werden. 
Damit können diese 8-Bit-Computer dann genau 65536 (2 hoch 16) Zei¬ 
chen bzw. Bytes anwählen und auch adressieren (65536 Bytes: 64 mal 2 
hoch 10 bzw. 64 KBytes, d.h. kurz 64 K). Dies gilt für die beiden weit¬ 
verbreiteten 8-Bit-CPUs Z80 und 6502. 

1.4.3.2 16-Bit-Mikrocomputer 
Externer und interner Bus: 

Die Wortbreite des externen Datenbus bestimmt, ob man einen 8-Bit- 
Computer oder aber einen 16-Bit-Computer vor sich hat, nicht aber die 
interne Länge von Registern, die Wortbreite des Rechenwerks oder die 
Befehlslänge. Danach verfügt ein "echter" 16-Bit-Computer über einen 
internen wie auch einen externen 16-Bit-Bus. 

Unechter 16-Bit-Computer: 

Wenn Personalcomputer wie der IBM-PC häufig als 16-Bit-Computer be¬ 
zeichnet werden, dann muß man sich darüber im klaren sein, daß die da¬ 
bei verwendete CPU 8088 zwar 16-Bit-Register und Operationen zur 
Verarbeitung von 16-Bit-Worten aufweist, also einen internen 16-Bit-Bus 
hat, aber nur einen externen 8-Bit-Bus. Dies bedeutet, daß die 16 Bits 
der Register zum Ausgeben wie zum Laden durch den Datenbus stets 
halbiert bzw. zusammengefügt werden müssen. 

Geräte mit externem 8-Bit-Bus und internem 16-Bit-Bus bezeichnen wir 
als 8/16-Bit-Computer. Aufgrund ihrer Stellung zwischen der echten 8- 
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Bit-Struktur und der echten 16-Bit-Struktur bezeichnet man sie häufig 
als "Zwitter". 

Warum arbeitet ein 16-Bit-Computer schneller als ein 8-Bit-Computer? 

Der Bus eines 8-Bit-Computers hat 8 parallele Leitungen. Damit können 
die 2 hoch 8 bzw. 256 Zahlenwerte 0,1,2,...,255 in einem Schritt bzw. 
Zeittakt übermittelt werden. Will man größere Zahlen übertragen, dann 
müssen diese aufgeteilt und in zwei oder mehreren Schritten transportiert 
werden. Dieses Aufteilen kostet natürlich Zeit. 

Dies erübrigt sich beim 16-Bit-Computer, wenn die Zahlenwerte 0, 1 , 2, 
..., 65535 übermittelt werden sollen. Der 16-Bit-Bus mit 16 Leitungen 
erlaubt 2 hoch 16 bzw. 65536 Kombinationen bzw. Zahlenwerte, die in 
einem Schritt übermittelt werden. 

Der Unterschied zwischen 8-Bit-Computern und 16-Bit-Computern ist 
also viel größer, als es der Zahlenvergleich "8 zu 16 Bit" nahe legt: Die 
Hochrechnung "256 zu 65536 Kombinationen" zeigt den wahren Unter¬ 
schied zwischen diesen Computertypen auf. 

1.4.3.3 32-Bit-Mikrocomputer 

Das Leistungsvermögen eines Computers hängt im wesenlichen von zwei 
Größen ab: von der Anzahl der Bits (Wortbreite) und von der Schnellig¬ 
keit. 32-Bit-Computer weisen bei beiden Größen günstige Werte auf. 
Zunächst zur Bitanzahl: Bei den echten 32-Bit-Computern sind 32 paral¬ 
lele Leitungen im Bus zusammengefaßt. Damit vergrößert sich ihr 
Adreßraum theoretisch auf vier Milliarden Zeichen (vier Gigabytes). 
Außerdem können Computer mit 32-Bit-Struktur binäre Zahlen anstatt 
auf acht Stellen (beim 8-Bit-Mikro) auf 32 Binärstellen genau bearbeiten. 
Der Befehlsvorrat nimmt ebenfalls zu: Die 8-Bit-CPU des 6502 versteht 
56 Befehle gegenüber den 134 Befehlen des 16-Bit-Prozessors 8086 und 
den z.B. 230 Befehlen eines 32-Bit-Computers. 

Die Schnelligkeit eines Computers gibt man in "Millionen Instruktionen 
je Sekunde" (Mips) an. Sie hängt von der Taktfrequenz und von den 
Abmessungen des Prozessor-Chips ab (je kleiner die Abstände der Lei¬ 
terbahnen auf der Prozessor-Platine, desto höhere Taktfrequenzen und 
damit Instruktionen je Sekunde sind möglich). Beispiel: Eine 32-Bit-CPU 
wie 32032 ermöglicht 1,1 Mips. 

1.4.4 Logikbausteine (Mikroprozessoren) im Überblick 

Die bislang angeführten Mikroprozessor-Kürzel Z80, 6502 sowie 8088 
können leicht in eine etwas übersichtlichere Ordnung gebracht werden, 
da es im Grunde nur zwei "Familien" von 8-Bit-Prozessoren gibt: die 80- 
Familie einerseits und die 65xx- bzw. 68xx-Familie andererseits. 1970 
erfand Dr. Ted Hoff bei Intel mit dem 4004 den 4-Bit-Mikroprozessor 
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und 1973 folgte der 8080 als 8-Bit-CPU. Seit 1976 gelten der Z80 von 
Intel/Zilog und der 6502 von Motorola als hauptsächliche Vertreter der 
nach ihnen benannten Familien. In der Abbildung (Quelle: Computer 
Persönlich, 15(1986)) wird dies verdeutlicht. 



Intel Motorola 


Zwei "Familien" von Mikroprozessoren 

Zur Motorola-Familie: Bereits 1979 war der 6502 der weltweit meistver- 
kaufte Mikroprozessor. Sein Nachfolger 68000 weist als 16-Bit-Mikro¬ 
prozessor bereits einen 16-Bit-Datenbus bei intern 32-Bit-breiten Regi¬ 
stern auf, er zählt also zu den "Zwittern" mit 16/32-Struktur. Computer 
wie Macintosh, Atari ST und Commodore Amiga verwenden diesen Pro¬ 
zessor. 

Zur Intel-Familie: Im Jahre 1981 führte IBM den 8088 für seinen PC 
ein. Der IBM PC AT arbeitet mit einem Intel 80286. Da sich die IBM 
Personalcomputer rasch zum Industriestandard entwickelten, verbreiteten 
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sich die Mikroprozessoren von Intel mehr als die von Motorola. Mit der 
zunehmenden Bedeutung von Computergrafik, Anomation und grafischen 
Benutzeroberflächen jedoch erfährt der mit seiner 32-Bit-Arithmetik lei¬ 
stungsfähigere 68000 eine deutliche Aufwertung. 

1.4.5 Speicherbausteine im Überblick 

Zwei Gruppen von Speicherbausteinen sind zu unterscheiden: flüchtige 
Speicher RAM und permanente Speicher ROM. 

Flüchtige Speicher: 

- RAM (Random Access Memory) bzw. "Schreib-Lese-Speicher" 

- Inhalt geht bei Abschalten der Betriebsspannung verloren 

- Speicher leicht neu beschreibbar 

- Dynamischer und statischer RAM 

- Nutzung als schneller Arbeitsspeicher für Daten und 
Programme des Anwenders. 


Permanente Speicher 

- ROM (Read Only Memory) bzw. "Nur-Lese-Speicher" 

- Festspeicher bzw. Festwertspeicher genannt 

- Inhalt bleibt auch ohne Betriebsspannung erhalten 

- Inhalt nicht (ROM) oder schwer (PROM, EPROM, EEPROM) 
änderbar 

- Nutzung von Steuerungsprogrammen (Betriebssystem) 

Speicherbausteine ROM und RAM 

1) Speicherbaustein RAM: 

Zu unterscheiden sind zwei Ausführungen von Direktzugriff-Speichern: 
dynamische und statische RAMs. 

Beim dynamischen RAM wird in vielen auf dem Chip angeordneten Kon¬ 
densatoren gespeichert. Da bei jedem Speicherzugriff (Lesen wie Schrei¬ 
ben) immer wieder Spannung abfließt, verlieren diese Chips tausende 
Mal in der Sekunde ihren gesamten Inhalt: sie müssen deshalb immer 
wieder "aufgefrischt" (engl, refreshed) werden. Bei jedem Refresh werden 
alle Speicherstellen vor dem Datenverlust ausgelesen und dann neu 
beschrieben. Auf der einen Seite sind dynamische RAMs deshalb spar¬ 
samer (Leistungsaufnahme gering), kleiner (Kondensator anstelle 
Flipflop), mächtiger (Speicherkapazität) und preiswerter als statische 
RAMs; auf der anderen Seite ist ihr schaltungsmäßiger Aufwand größer 
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und ihre Arbeitsgeschwindigkeit kleiner (da beim Refresh kein 
Speicherzugriff möglich ist). 

Beim statischen RAM tritt an die Stelle des Kondensators der Flipflop: 
Information wird in den zahlreichen auf dem Chip befindlichen Flipflops 
gespeichert. 

2) Speicherbaustein ROM: 

Der ROM wird vom Hersteller z.B. dadurch beschrieben, daß man be¬ 
stimmte Kontakte auf dem Speicherchip schließt bzw. unterbricht. Pro¬ 
duktion und Speicherung fallen zusammen. Dabei ist nur die Massenpro¬ 
duktion sinnvoll. 

3) Speicherbaustein PROM: 

Beim dem als PROM abgekürzten programmierbaren ROM (Program- 
mable Read Only Memory) wird die Programmierung bzw. Speicherung 
nicht vom Hersteller, sondern vom Anwender vorgenommen. Ein neuer 
PROM ist deshalb leer, da alle Bits z.B. auf 0 gesetzt sind. Beim an¬ 
schließenden Speichern brennt der Anwender über die Programmierspan- 
nung gezielt Kontakte auf dem PROM durch. Die Informationsspei¬ 
cherung ist somit endgültig, d.h. sie kann nicht mehr rückgängig gemacht 
werden. Bei jeder Änderung muß ein neuer PROM gebrannt werden. 

4) Speicherbaustein EPROM: 

Den EPROM (Erasable PROM) als löschbaren PROM erkennt man an 
dem kleinen Glasfenster; bestrahlt man den EPROM durch dieses Fenster 
mit UV-Licht, wird alle Information gelöscht. Anders als beim PROM 
wird beim Beschreiben durch Anlegen der Programmierspannung nichts 
unwiderrufbar durchgebrannt, sondern der Stromfluß durch einen Feld¬ 
effekttransistor verändert. 

5) Speicherbaustein EEPROM: 

Beim EEPROM (Electrically Erasable PROM) wird nicht durch UV- 
Licht gelöscht, sondern durch Anlegen einer Spannung an den Chip. Da 
der EEPROM vom Computer selbst beschrieben werden kann, könnte 
man ihn auch als RAM bezeichnen. 

1.4.6 Mikrocomputer-Benutzer als Löter und Tipper 

Benutzer von Mikrocomputern werden zuweilen in "Löter" und in "Tip¬ 
per" eingeteilt: Bauen sich die "Löter" ihr DV-System aus elektronischen 
Bausteinen hardwaremäßig individuell zusammen, so erwerben sich die 
"Tipper" einen Computer, um diesen selbst zu programmieren (Pro¬ 
gramm-Tipper) oder gekaufte Software auf die eigenen Daten anzuwen¬ 
den (Daten-Tipper). Die zwei folgenden Entwicklungen verwischen diese 
Einteilung in "Löter" sowie in "Tipper" immer mehr: 
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Zum einen werden EPROMs als löschbare Speicher immer einfacher in 
der Handhabung, wodurch es auch für die "Tipper" leichter wird, die 
bislang dem "Löter" vorbehaltenen Arbeiten durchzuführen: 

Durch Bestrahlen des ICs läßt sich Information leicht löschen. Umgekehrt 
können über ein Programmiergerät neue Daten und Programme in den 
EPROM gespeichert werden. Da EPROMs direkt bus-kompatibel sind, 
d.h. die Ausgänge sich direkt an den Datenbus legen lassen, ist dieses 
Vorhaben nicht nur für die "Löter" interessant. Auch der "Tipper" kann 
so seine eigenen Programmentwicklungen leicht in einen Festwertspeicher 
laden. 

Zum anderen können kommerzielle Programme ebenfalls über ein 
EPROM kopiert werden. Dazu als Beispiel die EPROM-Kartusche: Der 
"Tipper" geht mit seiner Kartusche in einen Software-Laden, sucht ein 
Programm aus, läßt sich eine Kopie dieses Programms gegen Gebühr 
über ein im Software-Laden befindliches Gerät in seine EPROM-Kartu- 
sche laden, geht nach Hause, steckt die Kartusche in seinen Computer 
und läßt das Programm laufen. Später kann er bei Bedarf dann immer 
wieder ein anderes Programm in den EPROM hineinkopieren. 
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Als die Rechner der Atari ST Reihe auf den Markt kamen, wurde wie bei 
den meisten Rechnern dieser Klasse die Programmiersprache BASIC mit¬ 
geliefert. Dabei handelte es sich um eine Version von der Firma Digital 
Research, die allerdings noch einiges zu wünschen übrig lies. Das Atari- 
BASIC war langsam, verwirrte den Benutzer durch viele Fenster, und vor 
allem störten die Fehler, die oft sogar das System zum Absturz brachten. 
Mittlerweile ist Atari sogar dazu übergegangen die neuen Geräte mit 
Omikron-BASIC auszuliefern. 

In diese Lücke stieß schon bald das BASIC der Firma GFA-System- 
technik. GFA-Basic ist von Grund auf neu konzipiert worden, es ist nicht 
in das GEM eingebunden, hat einen eigenen Editor und kann eine für 
einen Interpreter beachtliche Geschwindigkeit vorweisen. 

Schon bald folgte eine neue, verbesserte Version 3.0, die einen größeren 
Sprachumfang zu bieten hat. 

Neu an GFA-Basic ist vor allem, daß die aus vielen BASIC Dialekten be¬ 
kannten Zeilennummern ganz verbannt worden sind. Vielmehr setzt man 
jetzt auf Befehle, die ähnlich wie in der Programmiersprache Pascal 
Struktur in die Programme bringen. Dazu gehören verschiedene Schleifen¬ 
typen und vor allem Unterprogramme mit der Möglichkeit der Parameter¬ 
übergabe. Die Sprache ist so aufgebaut, daß man ganz ohne direkte 
Sprünge (GOTO) auskommen kann. 

Weiterhin fallen viele Befehle und Funktionen auf, die die speziellen 
Möglichkeiten des Atari wie Grafik und Menütechnik unterstützen. GFA- 
Basic selber ist wie gesagt nicht in das GEM eingebunden, aber die Pro¬ 
gramme, die man damit schreibt, können die GEM-Routinen voll nutzen. 
So kann man sich bei der Arbeit den Griff zur Maus meistens sparen, 
wenn man will. Der eingebaute Editor erledigt aber noch einige andere 
Aufgaben. So wird schon bei der Eingabe geprüft, ob die Syntax korrekt 
ist, und die Zeilen werden automatisch eingerückt, um die Programm¬ 
struktur zu betonen. 
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Die Rechner der Atari ST Reihe werden mit einer komfortablen Benut¬ 
zeroberfläche, dem GEM-Desktop (GEM = Graphics Environment 
Manager), geliefert. Im folgenden soll kurz erklärt werden wie man mit 
dem Desktop umgeht, um nachher einigermaßen sicher damit arbeiten zu 
können. 


2.2.1 Starten des Systems 

Nach dem Einschalten aller an den Atari angeschlossenen Geräte, wie 
Monitor, Diskettenlaufwerke und Drucker, kann der Rechner selbst ein¬ 
geschaltet werden. Besitzen Sie ein Gerät mit dem Betriebssystem im 
ROM, so brauchen Sie keine Betriebssystemdiskette einlegen. Ist das Be¬ 
triebssystem auf einer Diskette mitgeliefert worden, so ist diese vor dem 
Einschalten in das Diskettenlaufwerk einzulegen. 

Nach einiger Zeit meldet sich der Rechner mit dem Desktop (siehe 
1.3.7.6), unserem Computer-Arbeitstisch. Nun können wir mit der eigent¬ 
lichen Arbeit beginnen. Wir sehen auf dem Bildschirm neben der Menü¬ 
leiste noch einige Objekte, wie einen Papierkorb, einen Pfeil und minde¬ 
stens zwei Karteikästen. Der Pfeil wird auch als Mauszeiger bezeichnet. 


2.2.2 Der Umgang mit dem Desktop 
Das Arbeiten mit der Maus 

Mit der Maus kann der Mauszeiger auf dem Bildschirm bewegt werden. 
Wenn Sie die Maus auf dem Tisch verschieben, führt der Mauszeiger die 
Bewegung analog auf dem Schirm aus. Die beiden Maustasten dienen 
dazu, etwas auszuwählen, wir werden im folgenden nur die linke Taste 
benutzen. 


Auswahl eines Objekts 

Um etwas auf dem Bildschirm auszuwählen, muß der Mauszeiger auf das 
betreffende Objekt bewegt und die linke Maustaste gedrückt werden. 
Wollen wir z.B. mit dem Diskettenlaufwerk arbeiten, bewegen wir den 
Mauszeiger auf das Piktogramm des Diskettenlaufwerks (Karteikasten) 
und betätigen die linke Maustaste. Der Karteikasten wird nun als Bestäti¬ 
gung invers dargestellt. 
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Verschieben eines Objekts 

Um uns den "Arbeitstisch" einzurichten, können wir jedes Objekt auf 
dem Bildschirm beliebig verschieben. Bewegen wir den Mauszeiger auf 
den Papierkorb und drücken wir die linke Taste der Maus, lassen sie aber 
nicht wieder los, so können wir einen "Umriss" des Papierkorbes über den 
Bildschirm bewegen. Lassen wir die Taste wieder los, so wird der Pa¬ 
pierkorb an den Platz gesetzt, an dem sich der Umriss zuletzt befand. So 
kann mit jedem Objekt auf dem Desktop verfahren werden. 


Auswahl eines Menüpunktes 

In der Menüleiste befinden sich die Auswahlpunkte "DESK", "DATEI", 
"INDEX" und "EXTRAS". Bewegen wir den Mauszeiger auf eines dieser 
Worte, so klappt das zugehörige Menü herunter. Aus den sogenannten 
"drop-down" Menüs können nur die fett geschriebenen Menüpunkte aus¬ 
gewählt werden. Bewegen wir den Mauszeiger auf einen dieser Menü¬ 
punkte, wird er invers dargestellt und kann durch betätigen der linken 
Maustaste ausgewählt werden, das Menü verschwindet dann. Will man 
keinen Punkt aus dem Menü auswählen, so bewegt man den Mauszeiger 
irgendwo auf einen freien Platz außerhalb des Menüs und drückt dann 
die linke Maustaste. Anders als bei der Auswahl von Objekten zieht die 
Auswahl eines Menüpunktes immer eine Verarbeitung nach sich. Ein 
ausgewähltes Diskettenlaufwerk kann mit dem Punkt "öffne" aus dem 
Menü DATEI geöffnet werden, d.h. es erscheint ein Fenster, in dem der 
Inhalt der eingelegten Diskette dargestellt wird. 


Starten und Öffnen 

Eine wichtige Funktion ist das zweimalige Betätigen der linken Maustaste 
kurz hintereinander ("Doppelklick"). Durch diese Aktion ist es möglich, 
ein Diskettenlaufwerk zu öffnen oder ein Programm zu starten . Wir hatten 
schon eine andere Methode kennengelernt, ein Laufwerk zu öffnen (Aus¬ 
wahl und Menüpunkt öffne), aber in der Praxis wird man dem Doppel¬ 
klick den Vorzug geben, da er schneller durchzuführen ist. 


Arbeit mit Fenstern 

Unter einem Fenster kann man sich einen Ausschnitt eines Arbeitsblattes 
vorstellen, das auf dem Schreibtisch, dem Desktop, liegt. Es ist immer nur 
dieser Ausschnitt des Arbeitsblattes zu sehen, daher auch die Bezeichnung 
Fenster. Wird ein Diskettenlaufwerk geöffnet, so erscheint ein Fenster, in 
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dem die auf der Diskette befindlichen Dateien dargestellt sind. Als Bei¬ 
spiel hier die GFA-Basic Systemdiskette: 


DE» DATEI INDEX EXTRAS 



Wie man deutlich erkennt, befinden sich ganz rechts im Fenster noch 
Objekte, die nur zum Teil sichtbar sind. Ein Fenster wie im obigen Bei¬ 
spiel kann nun auf verschiedene Arten manipuliert werden: 

Verschieben eines Fensters 

Ein Fenster kann wie jedes andere Objekt auf dem Schirm verscho¬ 
ben werden. Dazu muß auf die Titelleiste geklickt werden, das ist 
der gepunktete Bereich ganz oben am Fenster. Mit gedrückter linker 
Maustaste kann das Fenster nun bewegt werden. 

Vergrößern eines Fensters auf Maximalgröße 

Wird das Symbol in der rechten oberen Ecke angeklickt, vergrößert 
sich das Fenster auf Maximalgröße, es nimmt nun den ganzen Bild¬ 
schirm ein. Durch erneutes Anklicken dieses Symbols wird es 
wieder auf die Größe gebracht, die es vorher hatte. 

Verändern der Größe eines Fensters 

Bewegen wir den Mauszeiger auf das Symbol in der rechten unteren 
Ecke des Fensters und halten die linke Maustaste gedrückt, so er¬ 
scheint ein Umriß des Fensters, der durch Bewegen der Maus in der 
Größe verändert werden kann. Wird die Maustaste wieder losge¬ 
lassen, nimmt das Fenster die so gewählte Größe an. 
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2.2.3 Vorbereitende Arbeiten 
Formatieren einer Diskette 

Damit wir uns später eine Sicherheitskopie und eine Arbeitsdiskette anle- 
gen können, benötigen wir Leerdisketten, die noch keine Daten enthalten. 
Der Rechner kann eine solche Diskette noch nicht lesen oder beschreiben, 
sie muß dazu erst in Spuren und Sektoren aufgeteilt werden. Das wird 
ebenfalls von unserem Computer erledigt, man nennt diesen Vorgang 
Formatieren. Beim Atari sind dazu folgende Arbeitschritte durchzuführen: 

1) Einlegen der Diskette in ein Laufwerk des Computers. 

2) Anwählen des entsprechenden Diskettensymbols auf dem Desktop. 

3) Auswahl des Menüpunktes "formatiere.." im Menü "DATEI". Es er¬ 
scheint zunächst ein Warnfeld, damit können wir den Vorgang noch 
unterbrechen. Um fortzufahren klickt man auf "OK". 

4) Es erscheint ein Dialogfeld, in dem man den Diskettennamen ein¬ 
geben kann. Außerdem wird gefragt, ob die Diskette ein- oder 
zweiseitig formatiert werden soll. Das Atari-Laufwerk SF354 kann 
z.B. nur einseitig formatierte Disketten verarbeiten. Besitzen Sie 
hingegen ein Laufwerk SF314, einen 1040ST Rechner oder einen 
Mega-ST, so können Sie beide Formate benutzen. Auf der zweisei¬ 
tig formatierten Diskette können natürlich auch doppelt so viele 
Daten gespeichert werden als auf einer einseitigen. 

5) Es erscheint ein neues Fenster, in dem der Fortgang der Formatie¬ 
rung an einem Balken sichtbar ist. Ist er vollständig ausgefüllt, ist 
der Formatiervorgang beendet. Es erscheint wieder das Dialogfeld 
und wir könnten eine weitere Diskette formatieren. Um wieder zum 
Desktop zu gelangen, klicken wir einfach auf Abbruch. 

Anlegen einer Sicherheitskopie 

Eine Sicherheitskopie wird angelegt, indem man Daten von einer Diskette 
auf eine andere überträgt. Die Praxis hat gezeigt, daß immer wieder mal 
Fehler auf Disketten auf treten, oder versehentlich wichtige Dateien über¬ 
schrieben werden. Eine Kopie unserer Arbeit kann dann viel Zeit und 
Ärger sparen. Wie legt man nun eine solche Kopie an? 
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Verschieben des Fensterinhaltes 

Wie schon erwähnt, kann es Vorkommen, daß ein Fenster nur einen 
Ausschnitt eines Arbeitsblattes darstellen kann, da es zu klein ist. 
Dieser Ausschnitt kann so verschoben werden, daß alle Teile des 
Arbeitsblattes erreicht werden können. Dazu dienen die beiden 
Rollbalken unten und rechts am Fenster. Ein Rollbalken besteht aus 
zwei Rollpfeilen an den Enden des Balkens und aus der Rollbox 
zwischen den beiden Pfeilen. Der schraffierte Teil der Rollbox stellt 
den gerade nicht sichtbaren Teil des Arbeitsblattes dar. Durch An¬ 
klicken eines Pfeiles wird der Ausschnitt um einen Schritt in die 
gewünschte Richtung verschoben. Man sieht, daß sich auch der 
nichtschraffierte Teil in der Rollbox verschoben hat. Will man 
schneller verschieben, kann auch direkt im schraffierten Teil ge¬ 
klickt werden, es erfolgt dann eine Verschiebung um einen Fenster¬ 
inhalt. Eine weitere Möglichkeit ist das direkte Anklicken des nicht 
schraffierten Teiles der Rollbox. Mit gedrückt gehaltener linker 
Maustaste kann der Bereich direkt bewegt werden. 

Schließen eines Fensters 

Das Symbol in der linken oberen Ecke dient dazu, ein Fenster wie¬ 
der zu schließen. Es verschwindet dann vollständig vom Bildschirm. 

Sind mehrere Fenster auf dem Desktop geöffnet, kann davon immer nur 
eins aktiv sein. Man erkennt das aktive Fenster an seiner ausgefüllten 
Titelleiste. Wollen wir in einem anderen Fenster arbeiten, so brauchen wir 
es nur irgendwo anklicken. Wie man am Beispiel der Systemdiskette sehen 
kann, befinden sich innerhalb des Fensters wieder einige Objekte. Es 
handelt sich hierbei um die Dateien, die sich auf der eingelegten Diskette 
befinden. Diese Objekte können wie gewohnt bewegt werden, aber 
Vorsicht! Das Bewegen eines Dateiobjekts bewirkt, daß eine Kopie der 
Datei angelegt wird. Vorher wird allerdings noch durch eine Sicherheits¬ 
abfrage geprüft, ob das wirklich geschehen soll. Das Anklicken von 
Abbruch verhindert in diesem Fall das ungewollte Anlegen einer Kopie. 
Wird ein Dateipiktogramm gestartet oder geöffnet (Doppelklick), so kön¬ 
nen zwei Dinge passieren: 

a) Ist es ein ein ausführbares Programm, wird es gestartet. 

b) Handelt es sich um eine Datei, erscheint ein Dialogfeld. In diesem 
Feld kann man nun auswählen, ob die Datei angezeigt oder ge¬ 
druckt werden soll. Möchte man nichts von beidem, so klickt man 
auf Abbruch. Diese Methode, sich eine Datei am Bildschirm anzei- 
gen zu lassen, werden wir später verwenden, wenn wir uns mit Da¬ 
teien beschäftigen. 



2.2 GFA-Basic auf dem Atari ST 99 


105 


Auch hier gibt es wieder einige Arbeitsschritte: 

1) Die Diskette, die kopiert werden soll, muß zunächst schreibge¬ 
schützt werden, um ein versehentliches Überschreiben zu verhin¬ 
dern (Man muß die Kerbe an der Diskette in die Position bringen, 
in der man durch das Loch hindurchsehen kann). Diese Diskette 
muß dann in ein Laufwerk eingelegt werden. 

2) Wir bewegen auf dem Bildschirm das Piktogramm des Disketten¬ 
laufwerks in dem sich die Diskette befindet, auf das Bild eines an¬ 
deren Laufwerks. Selbst wenn Sie nur ein Laufwerk besitzen, hat 
dieses Vorgehen einen Sinn, denn der Rechner fordert Sie dann 
immer wieder auf, die Disketten zu wechseln. Mit zwei Laufwerken 
brauchen Sie das natürlich nicht zu tun. Sie legen einfach eine leere 
formatierte Diskette in das andere Laufwerk. 

3) Es erscheint ein Warnfeld auf dem Bildschirm, in dem wir gefragt 
werden, ob die Aktion auch wirklich beabsichtigt ist, denn es gehen 
auf der Zieldiskette alle Daten verloren. Wir bestätigen die Frage, 
indem wir auf das Feld "OK" klicken. 

4) Auf dem erschienen Dialogfeld "Diskkopie" klicken wir auf das 
Feld "Kopiere". Besitzen Sie nur ein Laufwerk, folgen nun einige 
Anweisungen Disketten einzulegen. Mit Quelldiskette wird dabei die 
Diskette bezeichnet, auf der sich unsere Daten befinden. Die leere, 
formatierte Diskette wird mit Zieldiskette bezeichnet. Sie darf na¬ 
türlich nicht schreibgeschützt sein. Ist der Kopiervorgang abge¬ 
schlossen, so erscheint wieder das Dialogfeld auf dem Bildschirm. 
Wir können nun weitere Kopien anfertigen, oder "Abbruch" an¬ 
klicken, um zum Desktop zurückzukehren. 

Bitte beachten Sie, daß eine einseitig beschriebene Diskette nur auf eine 
einseitg formatierte Diskette kopiert werden kann. Das gleiche gilt für 
zweiseitige Disketten. Stimmt die Art der Quelldiskette nicht mit der der 
Zieldiskette überein, wird der Kopiervorgang mit einer Fehlermeldung 
abgebrochen. 
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2.2.4 Unser erstes Programm 

Als erstes Programm wollen wir ein Programm mit dem Namen 
VERBRAU erstellen, d.h. über Tastatur im Editor eintippen, testen und 
dann auf Diskette abspeichern. 

Das Programm VERBRAU löst das folgende Problem: 

"Benzinverbrauch beim Pkw: Ermittlung des Verbrauchs in 
Liter/100 km für eine Tankfüllung von 60 Litern" 

Wie bei allen größeren Vorhaben gehen wir auch bei der Programment¬ 
wicklung schrittweise vor. Beginnen wir mit Schritt 1. 


Schritt 1: System mit BASIC starten 

Wir starten zunächst den Rechner, wie wir es in Abschnitt 2.1.1 gelernt 
haben. Danach legen wir die Diskette, die GFA-Basic enthält, in das Dis¬ 
kettenlaufwerk. Es empfiehlt sich, mit einer Sicherheitskopie zu arbeiten. 
Wir öffnen nun das Diskettenlaufwerk durch zweimaliges anklicken des 
Piktogrammes. Nach einiger Zeit erscheint der Editor-Bildschirm von 
GFA-Basic. Der Bildschirm ist bis auf zwei Menüzeilen leer. Direkt unter 
den Menüzeilen befindet sich ganz links ein ausgefülltes Quadrat, der 
Cursor. Ab dieser durch den Cursor markierten Position wird der Text, 
den wir eintippen, auf dem Bildschirm erscheinen. Machen wir einen 
Versuch und geben das Wort PRINT ein. Nachdem wir die Return Taste 
gedrückt haben, springt der Cursor in die nächste Zeile. Wir befinden uns 
im Editor, der dazu da ist, den Programmtext komfortabel zu bearbeiten. 
In GFA-Basic werden im Editor zusätzlich noch die Eingaben auf 
Korrektheit geprüft. Eine Zeile kann erst verlassen werden, wenn sie 
korrekt eingegeben worden ist. Es erscheint im Fehlerfall in der zweiten 
Bildschirmzeile eine Meldung. 


Schritt 2: Programm Zeile für Zeile eintippen 

Wir wollen das (auch in Abschnitt 3.1.1.1 angegebene) Programm namens 
VERBRAU eintippen: Zeile für Zeile, wobei am Ende jeder Zeile die 
Return-Taste gedrückt wird (angedeutet durch /RETURN/). Um sicher 
zu gehen, daß der Programmspeicher leer ist, wenn wir beginnen unser 
Programm einzugeben, klicken wir in der ersten Menüzeile "New" an. 
Alternativ kann man auch /SHIFT/+/F4/ drücken (gleichzeitig). Es er¬ 
scheint ein Fenster, das uns fragt, ob wir mit dem Verlust der im Spei¬ 
cher befindlichen Daten einverstanden sind. Wir klicken auf das Feld 
"OK". Damit ist der Speicher gelöscht. 
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Wir können nun beginnen, unser Programm einzutippen. Es spielt dabei 
keine Rolle, ob wir Groß- oder Kleinschreibung verwenden. Alle Basic- 
Befehle wie "LET" oder "PRINT" werden automatisch in Großbuchstaben, 
alle Variablen in Kleinbuchstaben umgewandelt. Nur Texte in Anfüh¬ 
rungsstrichen werden so belassen, wie sie eingegeben worden sind. Das 
/RETURN/ am Ende einer Zeile soll daran erinnern, daß nach Eingabe 
der Zeile die Return-Taste gedrückt werden soll. 

let t=60 /RETURN/ 

PRINT "Eingabe: Gefahrene km" /RETURN/ 

INPUT k /RETURN/ 

Haben wir uns an einer Stelle vertippt, so können wir den Cursor mit den 
Pfeiltasten auf der Tastatur nach oben bewegen und korrigieren. Neu ein¬ 
gegebene Zeichen werden dabei eingeschoben, wollen wir Zeichen lösch¬ 
en, so drücken wir auf die Delete-Taste. Nun können wir den Rest des 
Programms eintippen. Dazu muß der Cursor unter der letzten Eingabezeile 
stehen, also direkt unter dem I von Input. 

LET d=100*t/k 

PRINT "Ausgabe: Li ter/100km" 

PRINT d 
END 

Auf dem Bildschirm steht nun die komplette Anweisungsfolge unseres 
Programms. Diese Anweisungsfolge nennt man Listing oder Codierung : Sie 
ist im folgenden wiedergegeben. 


Codierung zum Programm VERBRAU: 
LET t=60 

PRINT "Eingabe: Gefahrene km" 

INPUT k 
LET d=100*t/k 

PRINT "Ausgabe: Liter/100 km" 

PRINT d 
END 
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Schritt 3: Programm ausfiihren lassen 

Um das nun im Hauptspeicher befindliche Programm ausführen zu lassen, 
haben wir drei Möglichkeiten: 

a) Wir klicken mit der Maus auf den Befehl "RUN" in der oberen 
Menüzeile. 

b) Wir betätigen die Tasten /SHIFT/+/F10/ gleichzeitig. 

c) Wir schalten mit /SHIFT/+/F9/ in den Direkt-Modus und tippen 
RUN ein. 

Das Programm wird jetzt so ausgeführt, wie es dem Computer durch die 
sieben Anweisungen vorgeschrieben wird. Automatisch wird auf den Aus¬ 
gabebildschirm umgeschaltet. Tippen wir zum Beispiel 600 als Kilo¬ 
meterzahl ein, so zeigt sich uns folgender Dialog (auch Ausführung, 
Dialogprotokoll oder Programmlauf genannt): 


Eingabe: Gefahrene km 
? 600 

Ausgabe: Liter/100 km 
10 


(=Ausgabe des Computers) 
(=Eingabe von uns) 
(=Ausgabe des Computers) 
(=Ausgabe des Computers) 


Um Eingaben hervorzugeben werden sie unterstrichen, wie im obigen 
Beispiel. Wenn Sie Beispiele ausprobieren, brauchen Sie Ihre Eingaben 
natürlich nicht zu unterstreichen. 


Mit dem Ende des Programms erscheint in der Mitte des Bildschirms ein 
Fenster, in dem uns mitgeteilt wird, daß unser Programm beendet ist. 
Klicken wir nun auf "OK" in diesem Fenster, wird wieder in den Editor 
geschaltet. 

Die Gegenüberstellung von Codierung und Ausführung zu unserem Pro¬ 
gramm zeigt, daß die Anweisungsworte "LET" (setze gleich), "PRINT" (gib 
aus), "INPUT" (gib ein) und "END", die Anführungszeichen und die 
gesamten Berechnungen innerhalb von LET-Anweisungen in der Aus¬ 
führung nicht am Bildschirm erscheinen. 

Wir können das im RAM gespeicherte Programm jetzt wiederholt laufen 
lassen: Mit jeweils anderen Zahlen, aber stets in der gleichen Anwei¬ 
sungsreihenfolge, die durch die Reihenfolge festgelegt ist, in der die 
Anweisungen im RAM stehen bzw. in der die Anweisungen im Editor er¬ 
scheinen. Der exakte Programmablauf und die genaue Bedeutung der 
Befehle werden in Abschnitt 3.1.1.1 erklärt. 
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Im RAM befindet sich ein Programm mit dem Namen VERBRAU und 
die drei Variablen t, k und d. Das Programm stellen wir uns als große 
Schachtel mit einer Anweisungsfolge als Inhalt bzw. Wert (hier sieben 
Anweisungen) vor und die Variablen als drei kleine Schachteln mit 
jeweils einer Zahl als Inhalt. 

Die Abbildung veranschaulicht die drei Speicherzustände, in die wir den 
Speicher RAM nach und nach versetzt haben. Dabei ist festzuhalten: Im 
für den BASIC-Interpreter reservierten RAM können wir jeweils nur ein 
Programm speichern, aber mehrere Variablen. 


RAM nach Aufruf RAM nach Eintippen 
des NEW-Befehls: von Verbrau: 


RAM nach Ausführung 
von VERBRAU: 


Leen Speicher¬ 
plätze weder mit 
Anweisungen (Pro¬ 
gramm) noch mit 
Daten (Variablen) 
belegt. 


Weder (Anwender-) 
Programm noch 
Daten 


VERBRAU 


LET ... 


END 


Ein Programm 


VERBRAU 
I LET ... 

END 

T K D 

60 600 10 

Ein Programm und 
drei Variablen 


Speicherbelegung des RAM zu drei Zeitpunkten 


Über PRINT-Anweisungen, die wir im Direkt-Modus eingeben (mit 
/SHIFT/+/F9/ umschalten), können wir uns die derzeitigen Werte der 
Variablen zeigen lassen: 


> print t 
60 

> 

> print k.d 
600 10 


(=Eingabe von uns) 
(“Ausgabe des Computers) 
(=Ausgabe des Computers) 
(=Eingabe von uns) 
(»Ausgabe des Computers) 
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In t ist 60 gespeichert, in k 600 und in d 10. Wir haben den PRINT- 
Befehl im Direkt-Modus eingegeben, weil wir wollten, daß er sofort nach 
der Eingabe ausgeführt und nicht als Programm in den Speicher über¬ 
nommen wird. Schreiben wir Befehle oder allgemein gesagt Programmtext 
im Editor, so wird dieser in den Speicher übernommen und später nach 
dem Starten gemäß der Reihenfolge ausgeführt, in der er im Arbeits¬ 
speicher steht. 


Schritt 4: Programm aus dem Hauptspeicher auf die Diskette speichern 

Bei Abschalten des Stromes (bitte nicht, erst weiterlesen) wäre unser Pro¬ 
gramm verloren. Wir speichern deshalb eine Kopie des Programms auf 
Diskette ab. Dazu haben wir wieder mehrere Möglichkeiten: 

a) Wir klicken auf SAVE im Menü, oder 

b) wir betätigen die Tastenkombination /SHIFT/+/F1/ 

c) wir schalten in den Direkt-Modus und geben SAVE "VERBRAU" 
ein. Mit /Esc/ und /RETURN/ gelangt man anschließend wieder in 
den Editor. 

In ersten beiden Fällen reagiert der Computer gleich: Es erscheint ein 
Dateiauswahlfenster, das uns nach dem Namen fragt, unter dem das 
Programm abgespeichert werden soll. Zur Eingabe des Namens ist rechts 
eine Zeile vorgegeben, in der sich der Cursor bereits befindet. 

VERBRAU.GFA /RETURN/ 

Daraufhin verschwindet das Fenster und unser Programm wird auf der 
Diskette gespeichert, von der wir GFA-Basic geladen haben. Liegt diese 
Diskette nicht im Laufwerk, so werden wir aufgefordert, sie einzulegen. 
Wollen wir das Programm auf einer anderen Diskette speichern, müssen 
wir diese Diskette in das Laufwerk einlegen. 

Im Fall c) geben wir den Befehl zum Speichern im Direkt-Modus, wobei 
kein Dateiauswahlfenster erscheint. Wir geben ein: 


save "VERBRAU" 
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Durch Eintippen des Befehls 


> f»let /RETURN/ (=Eingabe von uns) 

. (=Ausgabe: aktuelles Inhaltsverzeichnis) 

> (=Ausgabe des Computers) 

erhalten wir eine Liste aller Programme des aktuellen Inhaltsverzeichnis¬ 
ses. 

Haben wir VERBRAU bereits gespeichert, dann können wir es in der von 
FILES ausgegebenen Liste ebenfalls entdecken. Der Programmname ist 
um ".GFA" ergänzt worden, was diese Datei eindeutig als GFA-Basic- 
Programm ausweist. 


Schritt 5: Programm von der Diskette in den Hauptspeicher laden 

Angenommen, wir wollen morgen wieder mit dem Programm VERBRAU 
arbeiten. Dazu haben wir nach dem Starten des Systems drei Möglich¬ 
keiten: 

a) Wir klicken auf "LOAD" im Menü, 

b) betätigen die Taste /Fl/, oder 

c) geben im Direktmodus LOAD "VERBRAU" ein. 

Bei a) und b) erscheint wie bei "SAVE" ein Dateiauswahlfenster. Wir 
klicken unser Programm in der Liste an. Wahlweise kann man auch den 
Programmnamen im Eingabefeld eingeben. Klicken wir nun auf OK, wird 
das Programm geladen. 

Im Direkt-Modus geben wir äquivalent beispielsweise ein: 


> load “verbrau’ /RETURN/ (=Eingabe von uns) 

> (=Ausgabe des Computers) 

Daraufhin wird das Programm VERBRAU im aktuellen Inhaltsverzeichnis 
gesucht und eine Kopie davon in den RAM geladen. Befindet sich aber 
schon ein anderes BASIC-Programm im RAM, wird dieses überschrieben 
und somit zerstört. 

Ähnliches gilt für den SAVE-Befehl: Ändern wir zum Beispiel das 
Programm VERBRAU ab durch Eintippen von 


PRINT "Durchschnittsverbrauch ermitteln" 
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als erste Zeile, so können wir diese verbesserte Programmversion durch 
den Befehl SAVE "VERBRAU" /RETURN/ (eingegeben im Direkt- 
Modus) neu auf Diskette retten. Was tut der SAVE-Befehl jetzt, da er im 
aktuellen Inhaltsverzeichnis bereits ein Programm namens VERBRAU 
vorfindet? Er überschreibt es, d.h. er zerstört die "alte" Programmversion 
und speichert das "neue" VERBRAU dafür ab. 



Bedienung und 
Sprachreferenz 
von GFA-Basic 
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Mit GFA-Basic bekommt der Anwender nicht nur einen Basic-Interpreter 
in die Hand, sondern ein komplettes Entwicklungssystem. Das bedeutet, 
daß ein Editor und Hilfsmittel zur Fehlersuche mitgeliefert werden. Der 
Editor ist speziell dafür vorgesehen, GFA-Basic Programme einzugeben 
und zu bearbeiten und übernimmt unter anderem noch folgende Aufga¬ 
ben: 

- Die Programmzeilen werden entsprechend der Programmstruktur ein¬ 
gerückt, so z.B. alle Zeilen innerhalb einer Zählerschleife. Das erhöht 
die Übersichtlichkeit des Programmtextes. 

- Eingegebene Zeilen werden sofort auf syntaktische Korrektheit ge¬ 
prüft. Eine Programmzeile kann mit dem Cursor erst verlassen werden, 
wenn sie keine Fehler mehr enthält. Diese Überprüfung verhindert je¬ 
doch nicht logische Fehler. 

- Alle Befehle können abgekürzt eingegeben werden, sie werden dann 
vom Editor automatisch ausgeschrieben, wenn die Zeile verlassen wird. 
So genügt es, anstelle von PRINT ein P einzutippen. 


2.3.1 Programmeingabe mit dem Editor 

Wird das System mit Basic, wie im Abschnitt 2.2 geschildert, gestartet, so 
befindet man sich zunächst im Editor. In den obersten zwei Zeilen befin¬ 
den sich, neben einer Uhr und der Zeilenanzeige, zwei Menüzeilen mit 
insgesamt 20 Kommandos. Sonst ist der Bildschirm leer, wir könnten di¬ 
rekt mit der Programmeingabe beginnen. 


2.3.1.1 Die Kommandos der Menüleiste 

Alle Kommandos der Menüzeile lassen sich auf zwei verschiedene Arten 
auslösen: 

- Anklicken des Kommandos in der Menüzeile mit der Maus. 

- Betätigen einer Funktionstaste (in Verbindung mit /SHIFT/ für die 
obere Menüzeile). Die einzelnen Kommandos sind dabei so angeordnet 
wie die Funktionstasten, also LOAD entspricht /Fl/ und RUN 
/SHIFT/+/F10/. 

Einige Kommandos können auch durch eine "Kurz-Tastenkombination" 
oder durch die Eingabe im Direkt-Modus gegeben werden. 

Hier nun die Beschreibung der einzelnen Kommandos: 
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LOAD, /Fl/, LOAD "Programmname" im Direktmodus 
Mit dem LOAD-Kommando kann ein Programm von einem Extern¬ 
speicher (Diskette.Platte) in den Arbeitsspeicher geladen werden. Das Pro¬ 
gramm muß mit dem SAVE-Kommando abgespeichert worden sein. 

SAVE, /SHIFT/+/F1/, SAVE "Programmname" im Direktmodus 
Mit dem SAVE-Kommando kann ein im Arbeitsspeicher befindliches 
Programm auf einen Externspeicher (Diskette, Platte) gespeichert werden. 
Das Programm wird dabei in codierter Form gespeichert und kann nur 
mit LOAD wieder geladen werden. 

MERGE, /F2/ 

Mit MERGE kann eine Textdatei (ASCII-Datei) in den Speicher gelesen 
werden. Da es sich um einen beliebigen Text handeln kann, wird er nach 
dem Laden geprüft und fehlerhaften Zeilen wird die Zeichenfolge "==>" 
vorangestellt. 

SAVE,A, /SHIFT/+/F2/, LIST "Programmname" im Direktmodus 
Speichert den Inhalt des Arbeitsspeichers als Textdatei ab. 

LUST, /F3/, LLIST im Direktmodus 

Druckt den im Arbeitsspeicher befindlichen Programmtext auf einen an¬ 
geschlossenen Drucker aus. 

QUIT, /SHIFT/+/F3/, QUIT oder SYSTEM im Direktmodus 

Mit dem QUIT-Kommando kann GFA-Basic wieder verlassen werden. 

BLOCK, /F4/ 

Dieses Kommando beinhaltet eigentlich eine ganze Reihe von Unter- 
Kommandos. Sie dienen dazu einen Teil des Programmtextes als Block zu 
verarbeiten (kopieren, verschieben usw.). Wir werden diese Kommandos 
im folgenden noch kennenlernen. 

NEW, /SHIFT/+/F4/, NEW im Direktmodus 
Löscht das im Arbeitsspeicher befindliche Programm. 

BLKEND, /F5/, /CONTROL/+/K/ 

Setzt das Ende des zu markierenden Blocks an die Zeile oberhalb der 
aktuellen Cursorposition. 

BLKSTA, /SHIFT//F5/, /CONTROL/+/B/ 

Setzt den Anfang des zu markierenden Blocks an die aktuelle Cursor¬ 
position. 
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FIND, /F6/, /SHIFT/+/CONTROL/+/F/ 

Ermöglicht das Suchen eines beliebigen Textes im Arbeitsspeicher . Nach 
dem Aufruf des Kommandos muß zunächst der Suchtext eingegeben 
werden. Wird er gefunden, steht der Cursor an der Stelle im Programm¬ 
text. 

REPLACE, /SHIFT/+/F6/, /SHIFT/+/CONTROL/+/E/ 

Das Kommando REPLACE sucht nach einem eingegebenen Text und er¬ 
setzt ihn gleichzeitig durch einen anderen. 

PG Pfeil nach unten, /F7/, /CONTROL/+/Cursor nach unten/ 

Blättert den Programmtext eine Bildschirmseite nach unten. 

PG Pfeil nach oben , /SHIFT/+/F7/, /CONTROL/+/Cursor nach oben/ 
Blättert den Programmtext eine Bildschirmseite nach oben. 

INSERT/OVERWR, /F8/ 

Schaltet um zwischen Einfüge- und Überschreib-Modus. 

TXT 16/TXT 8, /SHIFT/+/F8/ 

Schaltet zwischen einer Bildschirmauflösung mit 48 und einer mit 23 
Zeilen um. 

FLIP, /F9/ 

Schaltet auf den Ausgabebildschirm um. Mit dem Drücken einer belie¬ 
bigen Taste wird wieder zurückgeschaltet. 

DIREKT, /SHIFT/+/F9/ 

Schaltet in den Direkt-Modus um. Genaueres dazu erfahren Sie in Ab¬ 
schnitt 2.3.1.4. 

TEST,/F10/ 

Prüft, ob die Struktur des im Arbeitsspeicher befindlichen Programms 
korrekt ist, d.h. ob alle Schleifen und Verzweigungen auch geschlossen 
sind. 

RUN, /SHIFT/+/F10/, RUN im Direktmodus 
Startet das Programm im Arbeitsspeicher. 
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2.3.1.2 Die Bedienung des Editors 

Will man ein Programm eintippen, so kann man nach dem Starten von 
GFA-Basic direkt damit beginnen. Eine eingegebene Zeile wird mit 
/RETURN/ abgeschlossen. Ist ein Fehler in dieser Zeile, wird das sofort 
gemeldet, und die Zeile wird nicht verlassen. Dann gilt es, den Fehler zu 
beseitigen. Mit den Pfeiltasten kann der Cursor innerhalb der Zeile be¬ 
wegt werden. Befindet man sich im INSERT-Modus, so werden neu ein¬ 
getippte Zeichen in die Zeile eingefügt und nicht überschrieben. Mit der 
Delete-Taste kann das Zeichen, auf dem der Cursor gerade steht, gelöscht 
werden. Die Backspace-Taste verschiebt den Cursor eine Stelle nach links 
und löscht dabei ein Zeichen (der Rest der Zeile wird nachgezogen). Ist 
die Zeile nun fehlerfrei, kann sie mit /RETURN/ verlassen werden. 


Um den Cursor im Programmtext zu positionieren gibt es vielfältige 
Möglichkeiten, hier sollen aber nur die wichtigsten beschrieben werden. 
Die einfachste Art den Cursor zu bewegen ist, die mit Pfeilen gekenn¬ 
zeichneten Tasten zu benutzen. Es ist aber auch möglich, den Mauszeiger 
auf die gewünschte Stelle zu bewegen und die linke Maustaste zu betäti¬ 
gen. Hier noch weitere Möglichkeiten im Überblick: 


Taste 

/CONTROL/+/Pfeil links/ 
/CONTROL/+/Pfeil rechts/ 
/CONTROL/+/CLR HOME/ 
/CONTROL/+/Z/ 
/CONTROL/+/G/ 


Position des Cursors 
Anfang der Zeile 
Ende der Zeile 
Anfang des Programms 
Ende des Programms 
Beliebige Zeile im 
Programm (nach Eingabe 
der Zeilennummer) 


Kommandos zur Cursorpositionierung 


Um größere Änderungen im Programmtext durchführen zu können, ste¬ 
hen weitere Befehle bereit. So löscht die Tastenkombination 
/CONTROL/+/DELETE/ die gesamte Zeile, in der der Cursor steht. Sie 
ist nun vom Bildschirm verschwunden. Der Editor merkt sich immer die 
letzte so gelöschte Zeile, sie kann mit /CONTROL/+/U/ wieder eingefügt 
werden. Auf diese Weise können einzelne Zeilen komfortabel kopiert oder 
vervielfacht werden. Eine Leerzeile kann mit /INSERT/ erzeugt werden. 
Will man nun mehr als eine Zeile verarbeiten, so muß man zu den Block- 
Kommandos greifen. 

Als erstes muß dem Editor mitgeteilt werden, welcher Teil des 
Programmtextes als Block verarbeitet werden soll. Dies geschieht mit den 
Kommandos der Menüleiste oder einfacher mit /CONTROL/+/B/ für den 
Blockanfang und /CONTROL/+/K/ für das Ende. Auf dem Bildschirm 
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wird der so markierte Block unterlegt, um ihn leicht erkennen zu können. 
Es stehen verschiedene Kommandos zur Verfügung, diesen Block zu 
verarbeiten, sie können nach dem Drücken der Funktionstaste /F4/ auf¬ 
gerufen werden. In der zweiten Menüzeile erscheinen nun alle möglichen 
Kommandos, die wir hier zusammenfassen wollen: 


Block Erklärung 

Kommando 


/C/ 

/M/ 

/W/ 

/L/ 

/S/ 

/E/ 

/CTRL/+/D/ 

H 


Kopiert den Block an die aktuelle Cursorposition. 
Verschiebt den Block an die aktuelle Cursorposition. 
Speichert den Block als Text-Datei (wie SAVE,A) ab. 
Druckt den Block auf dem Drucker aus. 

Positioniert den Cursor auf den Anfang des Blocks. 
Positioniert den Cursor auf das Ende des Blocks. 
Löscht den Block. 

Hebt die Markierung des Blocks wieder auf. 


Übersicht über die Block-Kommandos 


Zuletzt möchten wir auf zwei Kommandos eingehen, die ein Suchen und 
Ersetzen von Texten erlauben. Nach Auslösen des Kommandos FIND 
(/F6/) wird man zunächst aufgefordert einen Suchtext einzugeben. Der 
Programmtext wird nach diesem Text durchsucht und bei Erfolg wird der 
Cursor an die Stelle positioniert, an der unser Text gefunden wurde. Mit 
der Tastenkombination /CONTROL/+/F/ kann nun weitergesucht wer¬ 
den, wobei es nicht erforderlich ist, den Text noch einmal einzutippen. 
Das Kommando REPLACE funktioniert ähnlich, hier muß ein weiterer 
Text eingegeben werden, der den Suchtext ersetzen soll. Jede Stelle, an 
der der Suchtext gefunden wird, wird angesprungen, und wir können mit 
/CONTROL/+/E/ bestätigen, daß hier der Suchtext ersetzt werden soll. 


2.3.1.3 Besonderheiten des GFA-Basic Editors 

Der GFA-Basic Editor bietet zusätzlich noch einige nützliche Hilfen an, 
wie den DEFLIST-Befehl, der es erlaubt, verschiedene Darstellungen des 
Programmtextes im Editor einzustellen. Folgende Übersicht zeigt die Ein¬ 
stellungsmöglichkeiten: 
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DEFLIST 

Einstellung 

0 

Befehle und Funktionen groß geschrieben, 
Variablennamen klein geschrieben, 

Typzeichen werden nicht automatisch angezeigt. 

1 

Befehle, Funktionen und Variablennamen in 

Groß- und Kleinschrift (erster Buchstabe groß), 
Typzeichen werden nicht automatisch angezeigt. 

2 

Befehle und Funktionen groß geschrieben, 
Variablennamen klein geschrieben, 

Typzeichen werden automatisch angezeigt. 

3 

Befehle, Funktionen und Variablennamen in 

Groß- und Kleinschrift (erster Buchstabe groß), 
Typzeichen werden automatisch angezeigt. 


Der Deflist Befehl 


Da alle Variablen auch implizit, d.h. über einen DEF-Befehl (s. 2.4.1.2), 
definiert werden können, ist das Typzeichen nicht immer erforderlich. 
Bei den Werten 2 und 3 als Parameter des DEFLIST-Befehls werden die 
Typzeichen dann bei der Ausgabe automatisch ergänzt, so daß man im 
Programmtext einen Überblick über die Typen der Variablen hat. Der 
DEFLIST-Befehl kann entweder im Direktmodus, im Programm oder 
durch Anklicken des Atari-Zeichens links oben im Editor-Bildschirm ge¬ 
geben werden. Bei der letzteren Möglichkeit erscheint ein neuer 
Menübalken. Er bietet zwei Rolladenmenüs an, im rechten davon finden 
wir den DEFLIST-Befehl aufgeführt. Dort ist auch ein Menüpunkt, um 
wieder in den Editor zu gelangen. 

Eine weitere nützliche Einrichtung ist das "Zusammenklappen" von 
Unterprogrammen. Wird der Cursor auf die Kopfzeile eines Unterpro¬ 
gramms (PROCEDURE) positioniert und die Taste /HELP/ gedrückt, so 
verschwindet der Programmtext des Unterprogramms und nur die Kopf¬ 
zeile bleibt stehen. So kann ein großes Programm an Übersichtlichkeit 
gewinnen. Nach erneutem Betätigen der /HELP/-Taste wird das Unter¬ 
programm wieder vollständig sichtbar. 

Die letzte Besonderheit, die hier nur kurz erwähnt werden soll, ist die 
Druckersteuerung. Mit Hilfe von verschiedenen Kommandos, die durch 
einen Punkt eingeleitet werden, kann das Format der Druckausgabe beim 
LLIST-Kommando verändert werden. Hier wollen wir jedoch auf das 
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Handbuch verweisen, da diese Kommandos nicht von großer Wichtigkeit 
sind. 


2.3.1.4 Der Direktmodus 

Mit der Tastenkombination /SHIFT/+/F9/ kann vom Editor in den 
Direkt-Modus geschaltet werden. Es erscheint der Ausgabebildschirm und 
ein Prompt, eine Eingabeaufforderung. Nun können BASIC-Befehle ein¬ 
gegeben werden. Sie werden nicht im Hauptspeicher abgelegt wie Pro¬ 
gramme, sondern direkt ausgeführt. Da der Ausgabebildschirm angezeigt 
wird, kann man die Wirkung des eingegebenen Befehls verfolgen. Damit 
wir vielbenutzte Befehle nicht immer neu eintippen müssen, können sie 
mittels der Tasten /Pfeil nach oben/ und /Pfeil nach unten/ wieder 
"hervorgeholt" werden. Ein Beispiel: 


» PRINT 3*3+4 /RETURN/ 

13 

> /Pfeil nach oben/ 

»PRINT 3*3+4 


Nach Drücken der Taste /Pfeil nach oben/ erscheint der letzte im Direkt- 
Modus eingegebene Befehl und der Cursor befindet sich weiterhin in 
dieser Zeile. Wir können sie nun ändern, z.B. statt der ersten 3 eine 9 
schreiben und mit /RETURN/ zur Ausführung bringen. 

Der Direktmodus kann wieder verlassen werden, indem man EDIT oder 
/ESCAPE/ eingibt, jeweils gefolgt von /RETURN/. 


2.3.2 Testhilfen zur Fehlersuche (Debugging) 

Jeder Programmierer wird irgendwann einmal feststellen, daß ein großer 
Teil der Programmentwicklung für die Fehlersuche einzuplanen ist. 
Syntaktische Fehler sind in der Regel schnell beseitigt, aber allzu schnell 
schleichen sich logische Fehler ein, die oft schwer zu finden sind. Dies ist 
ein Grund bei einem Programmentwicklungssystem wie es GFA-Basic 
darstellt, Testhilfen mitzuliefern. Oft findet man als Hilfe spezielle 
Programme, die sogenannten Debugger, bei GFA-Basic ist man einen 
anderen Weg gegangen: Die Testhilfen wurden in die Sprache integriert 
und können vom Programmierer bei Bedarf in den Programmtext 
eingefügt werden. 

Die einfachste Anweisung zur Fehlersuche ist der STOP-Befehl. Trifft 
der Interpreter auf einen STOP-Befehl, wird die Programmausführung 
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sofort angehalten und in den Direkt-Modus geschaltet. Hier kann man 
sich durch einfache PRINT-Befehle Variableninhalte zeigen lassen, oder 
sogar deren Wert ändern. Eine komfortablere Art, sich Variableninhalte 
auflisten zu lassen, bietet der DUMP-Befehl. Er hat folgendes Format: 

DUMP Stringausdruck 

Die Argumente sind optional, werden sie weggelassen, so werden alle 
Variablen mit ihrem Namen und Inhalt auf dem Bildschirm aufgelistet. 
Mit den Argumenten kann man die Ausgabe auf bestimmte Variablen 
beschränken. Ein paar Beispiele: 

dump "i" Listet alle Variablen (auch Arrays) auf, 

die mit einem "i" beginnen. 

dump "a» Listet die Kopfzeilen aller 

Unterprogramme und Funktionen auf. 

Im folgenden Format der DUMP Anweisung wird die Ausgabe auf eine 
Datei ausgegeben und kann nachher weiterverarbeitet werden: 


DUMP Stringausdruck TO Dateiname 

Wir wollen nun zwei Befehl betrachten, die es erlauben, den 
Programmfluß zu verfolgen, um z.B. festzustellen, ob eine Anweisung 
überhaupt ausgeführt wird: 

TRON 

Der TRON-Befehl dient dazu, den sogenannten Trace-Modus einzuschal¬ 
ten, in dem der Interpreter alle Befehle die er ausführt, zusätzlich auch 
auf dem Bildschirm anzeigt. Um z.B. ein Unterprogramm zu testen, setzt 
man an den Anfang des Unterprogramms einen TRON-Befehl. Mit dem 
Befehl 

TROFF 

kann dieser Modus wieder verlassen werden. Es sei noch erwähnt, daß 
auch die Ausgabe der Befehle im Trace-Modus auf eine Datei oder den 
Drucker umgelenkt werden kann. Dazu muß noch ein geöffneter 
Datenkanal mit angegeben werden (s. 3.6.3): 

OPEN "0",#3, "TRACE.DAT" 

TRON #3 

TROFF 
CLOSE #3 
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Dieses Beispiel schreibt alle ausgeführten Befehle auf die Datei 
TRACE.DAT. 

Eine weitere Variante des TRON-Befehls ist wohl die komfortabelste Art, 
ein Programm zu testen. 

TRON Unterprogrammname 


bewirkt, daß das angegebene Unterprogramm vor Ausführung jedes 
Befehls angesprungen wird. Zusätzlich existiert noch eine String-Variable 
TRACE$, die den Befehl als Text enthält. Mit dieser Version des TRON- 
Befehls kann man leicht verschiedene Testhilfen selbst programmieren. 
Ein Beispiel: 

Unser Programm bricht aus unbekanntem Grund ab, und wir haben mit 
Hilfe des DUMP Befehls herausgefunden, daß es genau dann geschieht, 
wenn die Variable Skonto den Wert 3 hat (Skonto = 3 ist eigentlich nicht 
vorgesehen). Da Skonto an mehreren Stellen des Programmes verändert 
wird, ist nicht klar, welcher Befehl Skonto auf 3 gesetzt hat. Wir 
konstruieren ein Unterprogramm (Die benutzten Befehle werden alle noch 
in Kapitel 3 erklärt, Sie brauchen sie an dieser Stelle noch nicht zu 
verstehen.): 

PROCEDURE test 

IF Skonto = 3 THEN 

PRINT "Kritische Stelle gefunden:" 

PRINT temp$ 

DUMP 

STOP 

ENDIF 

temp$=TRACE$ 

RETURN 

Mit dem Befehl "TRACE test” schalten wir am Anfang des Programms in 
den Trace-Modus. Vor Ausführung jedes Befehls wird nun in unser 
Unterprogramm test gesprungen und dort geprüft, ob die Variable Skonto 
bereits den Wert 3 angenommen hat. Da wir im Augenblick, in dem 
Skonto den kritischen Wert annimmt, bereits eine Programmzeile 
fortgefahren sind, müssen wir die letzte Programmzeile in einer 
Hilfsvariablen Zwischenspeichern. Das Programm wird mit einem STOP- 
Befehl unterbrochen, wenn Skonto den Wert 3 annimmt. Gleichzeitig wird 
der Befehl ausgegeben, der Skonto verändert hat. 

Wie man sieht, kann kann man sich zum Testen mit dem TRACE-Befehl 
komfortable Routinen schreiben, die das "Programmiererleben" sehr 
erleichtern. 
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Die folgende Kurzbeschreibung orientiert sich an Beispielen. Dies gilt für 
die Beschreibung der Datentypen wie die der Anweisungen, die die 
Programmiersprache GFA-BASIC dem Anwender bereitstellt. Wir bezie¬ 
hen uns dabei auf die allgemeine Darstellung der Datenstrukturen und 
Programmstrukturen von Abschnitt 1.3. 


Programmiersprache GFA-BASIC 


... stellt Anweisungen bzw. 
Befehle bereit: 


... unterscheidet Daten bzw 
Datentypen: 


Anweisungen = wie 
ist zu verarbeiten 


Daten = was 
ist zu verarbeiten 


Anweisungen und Daten als aktive und passive Elemente in BASIC 


2.4.1 Daten 

2.4.1.1 Konstanten mit Zahlen und Text 

GFA-Basic unterscheidet vier Grundtypen von Konstanten, also vier 
Grundtypen von. Daten, die während des Programmablaufs unverändert 
bleiben: 


- INTEGER-Konstante 

- REAL-Konstante 

- STRING-Konstante 

- BOOL’SCHe-Konstante 


Ganze Zahlen 
Dezimalzahlen 
Texte 

Wahrheitswerte 


z.B. 25000 
z.B. 7.1258 
z.B. "Guten Tag" 
TRUE, FALSE 


Diese Grundtypen von Konstanten haben verschiedene Darstellungsformen 
und belegen unterschiedlich viel Speicherplatz. 
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Datentyp: 

Kennzeichen: 

Speicher¬ 

bedarf: 

Beispiele: 

INTEGER 

Prozentzeichen 
-2147483648 bis 
2147483647 

4 Bytes 

1000000000 

-75467 

REAL 

Dezimalpunkt 
oder E (Exponent) 

6 Bytes 

999.182, -11111.11 
3.1E8 = 3.1*10 A 8, 

STRING 

Max. 32767 Zeichen; 
steht in An¬ 
führungszeichen 

bis 32773 
Bytes 

"DM-BETRAG", "" 
"12", "Ergebnis" 

BOOLEAN 

TRUE oder 

FALSE 

2 Bytes 

-1, o 


Konstanten (INTEGER/REAL/STRING/BOOLEAN) 


Zahlen vom Datentyp INTEGER können als Werte alle ganzen Zahlen von 
-2147483648 bis 2147483647 annehmen. Zahlen vom Datentyp REAL 
werden mit 14 Stellen Genauigkeit verarbeitet. 


Neben diesen Dezimal-Konstanten kennt BASIC hexadezimale, oktale, 
duale und logische Konstanten: 

Hexadezimale Konstanten werden durch das Präfix &H oder einfach & 
gekennzeichnet und im Sechzehnersystem dargestellt. Sie bestehen aus den 
Ziffern 0-9 und A - F. Zwei Beispiele: &HE oder &E ist gleich HEX E 
bzw. gleich Dezimal 14. &HFFFF ist gleich Hexadezimal FFFF bzw. 
gleich Dezimal 65535. 

Oktale Konstanten erscheinen im Achtersystem und sind am Präfix &O zu 
erkennen. Ein Beispiel: &064 ergibt Dezimal 52, da 6*8 1 +4*8° gleich 
48+4 und dies gleich 52 ist. 

Duale Konstanten zeichnen sich durch den Präfix &X aus und enthalten 
nur die Ziffern 1 und 0. Zwei Beispiele: &X1011 ist gleich 
l*2°+l*2 1 +0*2 2 +l*2 3 = 11. &X10011001 = &H99 = 153. 

Bool’sche Konstanten sind eigentlich auch Zahlen, denn man hat den 
Wahrheitswerten "wahr" und "falsch" Zahlenbereiche zugeordnet. Mit 
"TRUE" bezeichnet man den Wert -1 und mit "FALSE" alle anderen. In 
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GFA-Basic existieren dafür die Konstanten TRUE und FALSE. Sie sind 
nur andere Namen für die Werte -1 (TRUE) und 0 (FALSE). 


2.4.1.2 Variablen für einfache Datentypen 

Jede Variable hat einen Namen, einen Datentyp und einen Wert, der sich 
ändern kann und somit variabel ist (Abschnitt 1.3.4). Eine Variable kann 
einen ganzahligen Wert (Typ BYTE, WORD oder INTEGER), eine Fließ¬ 
kommazahl (Typ REAL), eine Zeichenkette (Typ STRING) oder einen 
Wahrheitswert (Typ BOOLEAN) enthalten. 


Datentyp: 

BYTE 

WORD 

INTEGER 

REAL 

STRING 

BOOLEAN 


Typzeichen: Beispiele für Variablennamen: 

| wert|, port| 

& strecke&, max& 

% gewinn%, c3_l%, a33%, adresse% 


# 

$ 

i 


mult, a, al, winkel 
proz#,winkel# 

wort$, al$, bezeichnungS, file$ 
flagge!, gefunden!, w! 


Numerische Variablen (BYTE, WORD, INTEGER, REAL), Textvariablen 
(STRING),logische Variablen (BOOLEAN) 


Vom Typzeichen abgesehen kann man Variablennamen beliebig wählen, 
vorausgesetzt, sie sind nicht länger als eine Zeile. Dabei muß der Name 
mit einem Buchstaben beginnen, auf den weitere Buchstaben oder Ziffern 
folgen können. Den Punkt oder den Unterstrich kann man zur Abgren¬ 
zung von Wörtern im Namen verwenden. In einem Zinsprogramm bieten 
sich z.B. die Variablennamen zins_satz, zins_teiler, zins_summe und 
zins_abzuege an. 

BASIC verfügt über reservierte Worte wie LIST, FN, GOSUB oder 
PRINT. In Abschnitt 2.4.2 sind diese Worte für Anweisungen usw. wie¬ 
dergegeben. Diese Worte dürfen normalerweise nicht als Variablennamen 
benutzt werden, da der Interpreter sie nicht von einem Befehl unterschei¬ 
den könnte. Wird eine Wertzuweisung allerdings mit einem LET-Befehl 
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eingeführt, so sind sogar die reservierten Worte als Variablennamen er¬ 
laubt. 

Das Einrichten von Variablen nennt man ihre Vereinbarung (vgl. Ab¬ 
schnitt 1.3.4.2). In BASIC sind hierzu zwei Arten zu unterscheiden: die 
implizite sowie die explizite Vereinbarung. 

Bei der impliziten Vereinbarung teilen wir durch die Angabe des Typzei¬ 
chens den Datentyp mit. So soll m$ Strings auf nehmen können (Typzei¬ 
chen $), m aber Zahlen vom Typ REAL (# oder kein Typzeichen). 

Bei der expliziten Vereinbarung brauchen die Typzeichen nicht mehr mit 
angegeben werden, da im Programm ausdrücklich vereinbart wird welche 
Variablen nun welchen Datentyp haben sollen. Dazu dienen die in der 
folgenden Übersicht aufgeführten Befehle: 


DEFBIT 

Mf M 

Variablen mit dem Anfangsbuchstaben 
f sind automatisch vom Typ 
BOOLEAN. 

DEFBYT 

M we H 

Variablen mit den beiden An¬ 
fangsbuchstaben we sind vom Typ 
BYTE. 

DEFURO 

M a-e” 

Variablen mit Anfangsbuchstaben aus 
dem Bereich a bis e sind vom Typ 
WORD. 

DEFINT 

*M-n" 

Vereinbarung von INTEGER- 

Variablen. 

DEFFLT 

M m-z" 

Vereinbarung von Fließkomma¬ 

variablen vom Typ REAL. 

DEFSTR 

M£N 

Variablen mit dem Anfangsbuchstaben 
t sind Strings. 


Explizite Vereinbarung mit DEF/yp 


2.4.1.3 Variablen für strukturierte Datentypen 

In den Variablen für einfache Datentypen wird jeweils nur ein Datum 
gespeichert, bei den Variablen für strukturierte Datentypen bzw. Daten¬ 
strukturen sind es mehrere Daten (vgl. 1.3.2). 

In BASIC stehen uns als Datenstrukturen ARRAYs bzw. Tabellen sowie 
FILEs bzw. Dateien zur Verfügung. 
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Arrays (oft auch Tabellen, Felder, Listen oder Vektoren/Matrizen ge¬ 
nannt) umfassen mehrere Elemente vom gleichen Datentyp. Es kann also 
z.B. ein Array aus INTEGER-Variablen aufgebaut sein. 

Zur Vereinbarung des Arrays dient die DIM-Anweisung. Arrays müssen 
in jedem Falle explizit durch die DIM-Anweisung vereinbart werden. In 
Abschnitt 3.4 wenden wir uns den Arrays ausführlich zu. 

Zum FILE (Datei) als zweiter Datenstruktur. BASIC unterstützt direkt 
zwei Dateiarten: Die sequentielle Datei mit Reihenfolgezugriff und die 
Direktzugriff-Datei mit RANDOM-Zugriff bzw. wahlfreien Zugriff. In 
den Abschnitten 3.6 - 3.11 beschäftigen wir uns ausschließlich mit dieser 
Datenstruktur, d.h. mit der Dateiverarbeitung (File Processing). 


2.4.2 Anweisungen, Funktionen und Operatoren 

Im folgenden werden alle Anweisungen, Funktionen und Operatoren von 
BASIC alphabetisch geordnet und an Beispielen kurz erläutert. Der Funk- 
tions- bzw. Befehlsname ist dabei fett gedruckt. Angaben in eckigen 
Klammern sind optional, d.h. sie können weggelassen werden. 
Schrägstriche bedeuten "entweder oder", z.B. /a/b/ "entweder a oder b" 
kann angeben werden. Die folgende Befehls- und Funktionenübersicht ist 
mehr zum Nachschlagen als zum Durchlesen gedacht, eine ausführliche 
Beschreibung finden Sie dann in Abschnitt 3. 

2.4.2.1 Alle Anweisungen ohne Dateizugriff 

Anweisungen, die sich auf die Übertragung von Daten auf eine Datei 
(File) bzw. Diskette beziehen, werden in Abschnitt 2.4.2.3 zusammen¬ 
gefaßt. 

*Variablenrtame 

- Nimmt den Wert der Variablen als Zeiger auf eine andere Variable. 

zeiger%=*a zeiger% enthält die Adresse an der a 

*zeiger%=i7 gespeichert ist. *zeiger% spricht also 

die Variable a an. 

{numerischer Ausdruck)=numerischer Ausdruck 

- Der Ausdruck in den geschweiften Klammer wird als Adresse interpre¬ 
tiert und der Wert rechts vom Gleichheitszeichen wird an diese Adresse in 
den Speicher geschrieben. Entspricht LPOKE. 

{XBios<2»=255 Schreibt einen Wert in den Bildschirm¬ 

speicher. 
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~Funktionsname 

- Verwirft das Ergebnis der Funktion. Entspricht VOID. 

ABSOLUTE Variable,Adresse 

- Legt fest, an welcher Stelle im Hauptspeicher die Variable abgelegt 
werden soll. 

absolute x,VARPTR(a(5)) Die Variable a liegt an derselben Stelle 

im Speicher wie a(5), das 5. Element 
des Arrays a. 

ACLIP /Q/l/,xl,yl,x2,y2 

- Begrenzt den Bereich in dem die Line-A-Befehle wirksam sind. 
ACLIP 0... schaltet die Begrenzung aus, ACLIP 1... ein. ACLIP funktio¬ 
niert nicht für alle Line-A-Befehle ! 

aclip 1,0,0,639,399 Es kann auf dem ganzen Bildschirm 

gezeichnet werden, aber nicht darüber 
hinaus. 

ACHAR ASCII-Code,x,y,Zeichensatz,Stil,Winkel 

- Zeichnet ein Zeichen im Grafikmodus auf den Bildschirm. Ist der Wert 
für Zeichensatz größer als 2, so wird er als Font-Header-Adresse aufge¬ 
faßt (Line-A-Routine). 

achar 65,10,10,2,0,0 Gibt ein "A" an Position (10,10) in 

normaler Schrift aus. 

ADD Variable,numerischer Ausdruck 

- Addiert den Wert des numerischen Ausdruckes zur Variablen hinzu. 

AFTER Integer-Ausdruck GOSUB Unterprogrammname 

- Nach Ablauf der angegebenen Zeit wird das laufende Programm unter¬ 
brochen und das Unterprogramm angesprungen. Die Zeit ist in zweihun- 
derstel Sekunden anzugeben. 

AFTER STOP 

- Stoppt die laufende Zeit für den AFTER...GOSUB Befehl. 

AFTER CONT 

- Läßt die Zeit für den AFTER...GOSUB Befehl weiterlaufen. 
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ALERT Typ,Meldungstext,Rahmen,Buttontext,Eingabewert 

- Gibt ein Fenster mit einer Meldung aus und wartet auf eine Eingabe 
mit der Maus oder RETURN. 

alert 2,"sicher ?", 1 ,"ja|Mein",a% Fenster mit zwei Buttons ausgeben. Bei 

"Ja" hat a% den Wert 1, bei "Nein" den 
Wert 2. Bei RETURN wird "Nein" als 
Antwort angenommen. 

ALINE xl,yl,x2,y2,Farbe (0-15),Linienmuster,Modus 

- Zeichnet eine Linie zwischen den angegebenen Punkten (Line-A-Rou- 
tine) 

APOLY Adresse Punkte,Anzahl Punkte, yO TO yl,Farbe,.Modus, 

Adresse Muster,Musterlänge 

- Zeichnet einen Polygonzug. An der angegebenen Adresse für die Punkte 
müssen die x und y Koordinaten abwechselnd in Wortlänge stehen (Line- 
A-Routine). 

ARECT xl,yl,x2,y2,Farbe,Modus,Adresse Muster,Musterlänge 

- Zeichnet ein ausgefülltes Rechteck (Line-A-Routine). 

ARRAYFILL Feldname(),Wert 

- Füllt ein Array vom Typ Ganzzahl (d.h. Integer, Byte, Word) oder 
Boolean mit einem Wert. 

ATEXT x,y,Zeichensatz,Stringausdruck 

- Gibt eine Zeichenkette im Grafikmodus aus (Line-A-Routine). 

atext 10,10,0, »Basic" Gibt den Text BASIC in kleiner 

Schrift aus. 

BITBLT Quellraster,Zielraster,Koordinaten/Modus 

- Schnelles verschieben eines Bildschirmausschnittes. 

BMOVE Quellenadresse,Zieladresse,Anzahl Bytes 

- Schnelles Verschieben von Speicherbereichen. 

BOUNDARY /0/1/ 

- Schaltet die Umrahmung einer Füllfläche ein (1) bzw. aus (0). 

BOX xO,yO,xl,yl 

- Zeichnet ein Rechteck. 

B\TE{Adresse}=numerischer Ausdruck 

- Schreibt den Wert des numerischen Ausdrucks mit 1 Byte Länge in den 
Speicher. Entspricht dem POKE-Befehl. 
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CALL Startadresse,{Parameterliste] 

- Aufruf eines Maschinenprogramms. 

call adr(3,i%) Ruft ein Programm an der Adresse, 

die in der Variablen adr steht auf. 
Übergibt die Konstante 3 und die Va¬ 
riable i%. 

CARD [Adresse)=numerischer Ausdruck 

- Schreibt den Wert des numerischen Ausdruckes als 2-Byte-Integer Zahl 
ohne Vorzeichen in den Speicher. 

CIRCLE x,y,Radius], An fangswinkel,Endwinkel] 

- Zeichnen eines Kreises oder Kreisbogens. 

CLEAR 

- Löscht alle Variablen und Felder. 

CLEARW Fensternummer 

- Löscht den Inhalt eines Fensters. 

CLIP x-Position,y-Position,Breite,Höhe (OFFSET x,y] 

CLIP x-Position,y-Position TO x-Position,y-Position (OFFSET x,y] 

CLIP OFFSET x,y 

- Begrenzt die Grafikausgabe der Zeichenbefehle auf einen bestimmten 
Bildschirmbereich. Mit OFFSET kann der Ursprung der Bildschirm¬ 
koordinaten neu gesetzt werden. 

CLIP #Fensternummer (OFFSET x,y] 

- Begrenzt die Grafikausgabe der Zeichenbefehle auf das Fenster mit der 
angegebenen Nummer. OFFSET setzt den Ursprung der Bildschirmkoor¬ 
dinaten neu. 

CLIP OFF 

- Hebt die Begrenzung durch einen vorhergehenden CLIP-Befehl auf. 

CLOSEW Fensternummer 

- Schließen eines Fensters. 

closew 1 Schließt das Fenster mit Nummer 1. 

CLR Variablenliste 

- Löscht die angegebenen Variablen. 

clr i%,r,b! ,s$ Entspricht i°/o=0, r=0, b!=FALSE und 

s$="". 


CLS [# Kanalnummer] 

- Löscht den Bildschirm. 
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COLOR Farbe 

- Setzen der aktuellen Zeichenfarbe. 

color 2 Zeichenfarbe 2 bei mittlerer oder 

hoher Auflösung. 


CONT 

- Fortsetzen der Programmausführung nach einer Unterbrechung durch 
STOP. Funktioniert nur, wenn das Programm inzwischen nicht geändert 
worden ist. 

CONT 

- Der dem CONT Befehl folgende CASE oder DEFAULT Block einer 
SELECT Anweisung wird unabhängig von der Bedingung ausgeführt. 

DATA Konstante l[,Konstante2,...] 

- Programminterne Datei für alle Arten von Konstanten. 

DEC Variablename 

- Wert einer Variablen um 1 vermindern. 

DEFBIT Stringausdruck 
DEFBYT Stringausdruck 
DEFWRD Stringausdruck 
DEFINT Stringausdruck 
DEFFLT Stringausdruck 
DEFSTR Stringausdruck 

- Explizite Vereinbarung von Variablen (siehe 2.4.1.2). 

DEFFILL [FarbeUStil],[Muster] 

- Festlegen der Füllfarbe bzw. des Füllmusters zum Flächenfüllen. 

deffill 1,2,9 Mit "Backsteinmuster" ausgefülltes 

pbox 100 , 100 , 200,200 Rechteck zeichnen. 

DEFFILL [Farbe],Stringvariable 

- Definieren eines eigenen Füllmusters. 

DEFFN Funktionsname [(Variablenliste )] = Ergebnisausdruck 

- Definieren einer Benutzerfunktion. 

DEFLINE [Stil],[Linienbreite],[Anfangsform],[Endform] 

- Festlegen der Linienform. 

DEFLINE 1,5,1,1 


Doppelpfeil mit Breite 5. 
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DEFLIST Numerischer Ausdruck (0-3) 

- Festlegen des Listingformates. 

deflist o Befehls- und Funktionsnamen in 

Großschrift, Variablen in Kleinschrift. 
deflist 1 Alle Namen in Groß und Kleinschrift. 

DEFMARK [Farbe],[Markierungsart],\Größe] 

- Festlegen der Form der Eckpunkte, die über den Befehl 
gezeichnet werden. 

defmark 1,3,20 Stern der Größe 20 als 

Zeichen. 

DEFMOUSE Numerischer Ausdruck (0-7) 

- Festlegen der Form des Mauszeigers. 

DEFMOUSE 3 Zeigende Hand. 

defmouse 5 Fadenkreuz. 

DEFMOUSE Stringvariable 

- Definieren einer eigenen Mausform. Auf der GFA-Basic Diskette be¬ 
findet sich ein Programm, mit dem man einen Mauszeiger entwerfen und 
abspeichern kann. 

DEFNUM Stellenzahl (3-11) 

- Legt fest, wieviele Stellen einer Zahl bei der Ausgabe ausgedruckt wer¬ 
den sollen. 

defnum 5 Das Ergebnis der Rechnung wird mit 5 

print 17+1/3 Stellen ausgegeben: 17.33. 

DEFTEXT [Farbe],[Stil (0-31)],[Drehwinkel],[Schrifthöhe],[Fontnr.] 

- Festlegen der Textform für die Textausgabe mit dem TEXT Befehl. 

deftext 1,12,0,32 Der Text wird kursiv und fett in 

text lo,io, ,, Kursiv/Fett" großer Schrift ausgegeben. 

DELAY Anzahl Sekunden 

- Hält die Programmausführung für die angegebene Anzahl Sekunden an. 

DIM Variable(Feldgröße),\Variable(Feld große),...] 

- Dimensionieren von Feldern (Arrays). 

DIV Variable,numerischer Ausdruck 

- Division des Wertes einer Variablen durch den Wert des numerischen 
Ausdruckes. 


POLYMARK 

Markierungs- 
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DELETE Arrayname(Index) 

- Löscht das Element mit dem angegebenen Index aus dem Array, d.h. 
alle nachfolgenden Elemente werden verschoben, um die Lücke wieder 
zufüllen. Am Ende des Arrays entsteht dabei ein leeres Element. 

DO [/WHILE Bedingung/ UNTIL Bedingung/] 

Anweisungsfolge 

LOOP [/WHILE Bedingung/ UNTIL Bedingung/] 

- Schleife mit Bedingungen am Anfang und am Ende. Ohne eine Be¬ 
dingung ergibt sich eine Endlosschleife, die nur mit dem EXIT-Befehl 
wieder verlassen werden kann. 

DOUBLE { Adresse) =numerischer Ausdruck 

- Schreibt den Wert des Ausdrucks als 8 Bit Fließkomma-Variable (IEEE- 
Double Format) an die angegebene Stelle im Speicher. 

DPOKE numerischer Ausdruck,Wert 0..65535 

- Schreibt einen Wert in zwei Speicherzellen (2 Byte = 1 Wort). 

DRAW [TO] xO,yO 

- Einen Punkt zeichnen (ohne TO), oder eine Linie von der aktuellen Po¬ 
sition des Graphikcursors zum Punkt (xO,yO) zeichnen (mit TO). 

DRAW Liste von Ausdrücken 

- Zeichnen von Turtle-Grafiken. 

DRAW xO,yO TO xl,yl [TO x2,y2 ...] 

- Zeichnet einen Polygonzug. 

DUMP [i String-Ausdruck [TO Stringausdruck]] 

- Listet Variableninhalte, Labels, Unterprogramm- und 
während der Programmausführung auf. 

Dump "m" Alle Variablen, die 

beginnen auflisten. 

.. Alle Labels auflisten. 

EDIT 

- Sprung in den Editor. 

print "Direkt in den Editor." Ohne Programmendebox in den Editor. 
EDIT 

ELLIPSE x,y,Radius x,Radius y [, Anfangswinkel,Endwinkel] 

- Zeichnet eine Ellipse um den Mittelpunkt (x,y). 


Funktionsnamen 
mit einem "m" 
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END 

- Beenden der Programmausführung. Es werden alle offenen Dateien 
geschlossen. 

ERASE Feldname () 

- Löschen eines Feldes und freigeben des Speicherplatzes. 

dim a(ioo) Ein Feld kann nach dem Löschen neu 

erase ao dimensioniert werden. 

DIH a(400) 

ERROR Fehlernummer 

- Simulierung eines BASIC-Fehlers zum Prüfen von Fehlerroutinen. 

error 8 Ergibt den Fehler "Speicher voll", ob¬ 

wohl das nicht der Fall ist. 

EVERY Integer-Ausdruck GOSUB Unterprogrammname 

- Unterbrechung des laufenden Programms in den angegebenen Zeitab¬ 
ständen. Es wird dann jeweils das Unterprogramm angesprungen. Der 
Zeitabstand zwischen den Unterbrechungen ist in zweihunderstel Sekun¬ 
den anzugeben. 

EVERY STOP 

- Stoppt die Unterbrechung durch EVERY ... GOSUB, das Unter¬ 
programm wird nicht mehr angesprungen. 

EVERY CONT 

- Erlaubt die Unterbrechung wieder, das Unterprogramm aus dem 
EVERY ... GOSUB Befehl wird wieder angesprungen. 

EXEC Funktion,Dateiname,Kommandozeile,Stringausdruck 

- Lädt ein ausführbares Programm von der Diskette und führt es aus. 

exec o," kermit.tos", 11 vi 11 , 1111 Lädt "Kermit" und führt es aus. Es 

wird der String "vi" übergeben. 

exec 3, "command.tos",, 1,11 Lädt das Programm, führt es aber 

nicht aus. 

EXIT IF Bedingung 

- Verlassen einer Schleife, wenn die Bedingung erfüllt ist. Einsetzbar in 
allen Scheifentypen. 

FILESELECT " Suchpfad"," Dateiname",Stringvariable 

- Stellt ein Dateiauswahlfenster auf dem Bildschirm dar. 

fileselect »\*.*",b$,a$ Liefert den ausgewählten Dateinamen 

in a$. 
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FILL x,y[,Begrenzungsfarbe\ 

- Füllen einer begrenzten Fläche mit einem Muster, das mit DEFFILL 
festgelegt worden ist. Wird als Begrenzungsfarbe -1 angegeben, so wird 
jeder Punkt mit einer anderen Farbe als der Startpunkt als Begrenzung 
betrachtet. 

FLOAT (Adresse) -numerischer Ausdruck 

- Schreibt den Wert des numerischen Ausdrucks als 8 Byte Fließkomma¬ 
variable (GFA-3.0 Format) an die angegebene Adresse in den Speicher. 

FOR Laufvariable = Anfangswert [DOWNJTO Endwert [STEP Schritt 1 

Anweisungen 

NEXT Laufvariable 

- Zählerschleife mit beliebiger Schrittweite. 

FORM INPUT LängeiStringvariable 

- Eingabe eines Strings mit festgelegter Maximallänge. 

print "Bezeichnung Der String darf maximal 10 Stellen 

form input io,bez$ lang sein. 

FORM INPUT Länge AS Stringvariable 

- Funktioniert genau wie FORM INPUT gibt jedoch den String vorher 
aus. 

FULLW Fensternummer 

- Vergrößern eines Fensters auf volle Bildschirmgröße. 

fullw 2 Öffnen des Fensters 2 auf Bildschirm¬ 

größe. 

FUNCTION Funktionenname [ Parameterliste ] 

RETURN Rückgabewert 

ENDFUNC 

- Definieren einer Benutzerfunktion. Endet der Funktionenname mit 
einem so ist der Rückgabewert ein String, sonst numerisch. 

GET x0,y0,xl,yl,Stringvariable 

- Ausschnitt des Bildschirms in einer Stringvariable speichern, (siehe 
PUT). 

GOSUB Unterprogrammname [( Übergabeparameter )] 

- Ruft ein Unterprogramm (PROCEDURE) auf. GOSUB kann auch weg¬ 
gelassen oder durch ein @ ersetzt werden. 

GOTO Label 

- Sprunganweisung zum angegebenen Label. 
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GRAPHMODE Modus(l-4). 

- Setzen des Graphikmodus. 

graphmooe 3 Gesetzte Punkte werden gelöscht, nicht 

gesetzte Punkte werden gesetzt. (XOR) 


HARDCOPY 

- Gibt den Bildschirminhalt auf einen angeschlossenen Drucker aus. 

HIDEM 

- Schaltet den Mauszeiger ab. 

HLINE xl,y,x2,Farbe,Modus,Adresse Muster,Anzahl Muster 
Zeichnet eine waagerechte Linie (LINE-A-Routine). 

HTAB Spaltennummer 

- Positioniert den Cursor in die angegebene Spalte. 

IF Bedingung 
[THENJ Anweisungen 
[ELSE IF Anweisungen, ...] 

[ELSE Anweisungen] 

ENDIF 

- Zweiseitige Auswahl (ohne ELSE IF) oder mehrseitige Auswahl (mit 
ELSE IF). 

INC numerische Variable 

- Erhöhen des Wertes einer Variablen um 1. 

INFOW Fensternummer "Text" 

- Text für die Informationszeile eines Fensters setzen. 

INLINE Adresse,Anzahl Bytes 

- Reserviert einen Speicherbereich in der gewünschten Länge. Der 
Bereich wird bei den Funktionen LOAD und SAVE mitgeladen bzw. ge¬ 
speichert. 

INPUT ["r<?xt"(;/,)I Variablenliste 

- Auf Tastatureingabe warten und diese dann den Variablen zuweisen. 
INSERT Arrayname(Index)=Ausdruck 

- Fügt ein Element in ein Array an die angegebene Stelle ein. Alle 
folgenden Elemente werden um eine Position verschoben. Das letzte Ele¬ 
ment des Arrays geht dabei verloren. 
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KEYDEF Numerischer Ausdruck (1-20),Stringausdruck 

- Belegen einer Funktiontaste mit einem String. 

KEYGET Variablenname 

- Wartet auf einen Tastendruck und liefert den ASCII-Code in der Vari¬ 
ablen. 

KEYLOOK Variablenname 

- Liest ein Zeichen aus dem Tastaturpuffer, ohne es dort zu löschen. 
KEYPAD numerischer Ausdruck (0-5) 

- Legt die Belegung des Zehnerblocks und der Funktionstasten fest. 
KEYPRESS numerischer Ausdruck 

- Schreibt den Wert des Ausdrucks als ASCII Wert in den Tastaturpuffer. 

KEYTEST numerischer Ausdruck 

Liest ein Zeichen von der Tastatur, ohne zu warten. 

LET Variablenname = Ausdruck 

- Wert des Ausdrucks der Variablen zuweisen. Das LET kann auch weg¬ 
gelassen werden. 

LINE xO,yO,xl,yl 

- Linie zwischen zwei Punkten zeichnen. 

line 0,0,639,399 Zeichnet eine Linie von der linken 

oberen Ecke in die rechte untere Ecke 
des Bildschirms. 

LINE INPUT ["Text”(:,/,)] Stringvariable 

- Ganze Zeile ohne Trennzeichen in die Variablen einiesen. 

line input ,i Name ,, ;s$ Liest String ein. (incl. Kommata). 

LLIST 

- Listet das im Hauptspeicher befindliche Programm auf den Drucker. 
LOCAL Variablenliste 

- Variablen in einer Procedure als lokal vereinbaren. 

LOCATE Zeilennummer,Spaltennummer 

- Positioniert den Cursor in die angegebene Zeile und Spalte. 

LONG [Adresse)=numerischer Ausdruck 

- Schreibt den Wert des Ausdrucks als 4 Byte Integerwert in den Spei¬ 
cher. Entspricht LPOKE. 
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LPOKE numerischer Ausdruck,Wert -2147483648..2147483647 

- Schreibt einen Wert in vier Speicherzellen (4 Byte = 1 Langwort). 

LPRINT [Liste von Ausdrücken],]]-,]]']] 

- Gibt Daten auf dem Drucker aus, sonst identisch mit PRINT. 

MENU /Feldname()/KlLL/OFF/Eintragnummer,0-3/ 

- Festlegen und Ändern der Menüleiste. 

MlD$(Stringvariable,Startposition,]Länge])=Stringausdruck 

- Setzt den Stringausdruck ab der Startposition in die Stringvariable ein. 
Wird die Längenangabe weggelassen, so wird der gesamte String über¬ 
tragen. 

MODE 0-3 

- Stellt die Darstellungsform für DATES und Zahlendarstellung ein. 
MONITOR [Übergabewert] 

- Ruft einen Monitor oder Debugger auf, wenn einer geladen ist. 

MUL Variablenname,numerischer Ausdruck 

- Multipliziert den Inhalt der Variablen mit dem Wert des numerischen 
Ausdrucks und speichert das Ergebnis in der Variablen. 

mul a,33 Multipliziert a mit 33, entspricht also 

LET a=a*33. 


NEW 

- Löscht das Programm im Hauptspeicher. 

ON numerischer Ausdruck GOSUB Unterprogrammliste 

- Springt das Unterprogramm an, dessen "Positionsnummer" in der Unter¬ 
programmliste dem Wert des numerischen Ausdruckes entspricht. 

ON BREAK /CONT/GOSUB Unterprogrammname/ 

Verbietet die Programmunterbrechung durch "BREAK" = 
<CONTROL>+<SHIFT>+<ALTERNATE> oder lenkt den Programmfluß 
in ein Unterprogramm um. 

ON BREAK 

- Erlaubt die Programmunterbrechung durch "BREAK". 

ON ERROR GOSUB Unterprogrammname 

- Tritt ein Fehler auf, so wird direkt in das angegebene Unterprogramm 
verzweigt und nicht abgebrochen. 
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ON ERROR 

- Hebt vorhergehende ON ERROR GOSUB-Befehle auf, das Programm 
wird bei einem Fehler abgebrochen. 

ON MENU 

Fragt Menüereignisse ab und verzweigt ggf. in die durch andere ON 
MENU... festgelegten Unterprogramme. 

ON MENU BUTTON Clicks,Maske,Status GOSUB Unterprogrammname 

- Verzweigt in das angegebene Unterprogramm, wenn eine Maustaste be¬ 
tätigt wird. 

ON MENU GOSUB Unterprogrammname 

- Festlegen des Unterprogramms zur Behandlung der Menüauswahl. 

ON MENU IBOX Rechteck,x,y,Breite,Höhe GOSUB Unterprogrammname 

- Festlegen eines Unterprogramms, das angesprungen werden soll, wenn 
der Mauszeiger in das angegebene Rechteck bewegt wird. 

ON MENU KEY GOSUB Unterprogrammname 

- Festlegen des Unterprogramms zur Behandlung von Tastendrücken. 

ON MENU MESSAGE GOSUB Unterprogrammname 

- Legt die Behandlungsroutine für GEM-Mitteilungen fest. 

ON MENU OBOX Rechteck,x,y,Breite,Höhe GOSUB Unterprogrammname 

- Festlegen eines Unterprogramms, das angesprungen werden soll, wenn 
der Mauszeiger aus dem angegebenen Rechteck herausbewegt wird. 

OPENW Fensternummer\ ,x,j^l 

- Fenster öffnen und festlegen des Berührungspunktes der vier möglichen 
Fenster. 

OPTION BASE /0/1/ 

- Legt fest ob Arrays mit dem Index 0 oder 1 beginnen. 

Option base 1 Alle Arrays beginnen mit dem Index 1. 

dim a%(l0) a%() hat einen Indexbereich von 1 bis 

10 . 


PAUSE numerischer Ausdruck 

- Wartet eine bestimmte Zeit bevor die Programmausführung fortgesetzt 
wird. 

PAUSE 500 


10 Sekunden (500/50) warten. 
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PBOX xO,yO,xl ,yl 

- Entspricht dem BOX-Befehl, nur wird hier das Rechteck ausgefüllt. 

PCIRCLE x,y,Radius],An fangswinkel,End winket] 

- Entspricht dem CIRCLE-Befehl, nur wird hier der Kreis ausgefüllt. 

PELLIPSE x,y,Radius x,Radius y \,Anfangswinkel,Endwinkel] 

- Entspricht dem ELLIPSE-Befehl, nur wird hier die Ellipse ausgefüllt. 

PLOT x,y 

- Zeichnet einen Punkt. 

POKE numerischer Ausdruck,Wert 0..255 

- Schreibt einen Wert in eine Speicherzelle (1 Byte). 

POLY/LINE/FILL/MARK/^nrfl/j/ Punkte,Feld-x,Feld-y [OFFSET xO,yO] 

- Zeichnet einen Polygonzug. POLYFILL füllt die durch den Polygonzug 
umschlossene Fläche aus, und POLYMARK markiert die Eckpunkte. 

polyline 3,x%o,y%o Zeichnet einen Polygonzug mit den 3 

Eckpunkten, die in den Feldern x%() 
und y%() angegeben sind. 

polyfill 3,x%o,y%o offset 10,10 Zeichnet einen Polygonzug, jedoch 

ausgefüllt und um 10 Punkte in x- und 
y-Richtung verschoben. 

PRBOX 

- Entspricht dem RBOX-Befehl, nur wird hier das Rechteck ausgefüllt. 

PRINT [AT (Spalte,Zeile)]];]]Liste von Ausdrücken]], ][;] 

- Daten auf dem Bildschirm ausgeben. 

PRINT USING Format String,Variablenliste];] 

- Daten formatiert ausgeben. 

print using "###.##“,pi* ioo Die Ausgabe erfolgt mit 3 Vor- und 2 

Nachkommastellen 

PROCEDURE Unterprogrammname ]{Parameterliste)] 

- Unterprogramm definieren. 

PSET x,y,Farbe 

- Setzt einen Punkt an der angegebenen Position (LINE-A-Routine). 

PUT xO,yO,Stringvariable],Modus] 

- Inhalt eines mit GET gespeicherten Bildschirmausschnittes auf den 
Bildschirm kopieren. 
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QSORT Arrayname{\/+/-/])[,.Anzahl Elemente]],Integerarray] 

- Sortiert ein Array mit numerischen Werten nach dem Quicksort¬ 
verfahren. Die Vertauschungen, die dabei durchgeführt werden, können 
analog in einem weiteren Array durchgeführt werden. 

QSORT Arrayname{\/+/~ / 1) WITH Arrayname \,Integerarray\ 

- Sortiert ein Array mit Strings nach dem Quicksortverfahren. Das Array 
hinter WITH gibt die Sortierreihenfolge an. 

QUIT 

- Befehl zum Verlassen des Interpreters (entspricht SYSTEM). 
RANDOMIZE numerischer Ausdruck 

- Initialisiert den Zufallsgenerator mit dem angegebenen Wert. 

RBOX xO,yO,xl,yl 

- Zeichnet ein Rechteck wie der BOX-Befehl, nur mit abgerundeten 
Ecken. 

RCALL Adresse,Integer-ArraynameQ 

- Ruft ein Maschinensprache Programm an der angegebenen Adresse auf. 
Die Feldelemente des Arrays werden dabei den Prozessorregistern zuge¬ 
wiesen. 

READ Variablenliste 

- Einlesen von Werten in die angegebenen Variablen und erhöhen des 
DATA-Zeigers. 

REM Kommentar 

- Kommentar in den Quelltext schreiben (besser Zeichen ’ verwenden). 

REPEAT Anweisungsfolge UNTIL logischer Ausdruck 

- Nicht-abweisende Schleife, d.h. die Schleifenbedingung wird am Ende 
geprüft. Ist der logische Ausdruck wahr, wird die Schleife abgebrochen. 

RESERVE Anzahl Bytes 

- Schützt einen Speicherbereich vor dem Zugriff durch GFA-Basic. 
RESTORE [Label] 

- DATA-Zeiger auf eine bestimmte Position setzen. 

namen: Ein RESTORE namen Befehl setzt den 

DATA “Axel"."Markus","Monika" DATA-Zeiger auf "Axel". 

RESUME ]/NEXT/Label/] 

- Rücksprung aus der Fehlerroutine. 
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RETURN 

- Rücksprung aus einem Unterprogramm. 

RUN 

- Starten der Programmausführung (kann auch im Programm verwendet 
werden). 

SELECT Variablenname 
OASE /Konstantenliste/ Bereich/ 

Anweisungen 

[DEFAULT Anweisungen] 

ENDSELECT 

- Mehrfachauswahl, es wird immer nur ein CASE-Block oder der 
DEFAULT-Block ausgeführt. 

SETCOLOR Farbregister,/rot,grün,blau 0..7/Farbe 0..1911/ 

- Für ein Farbregister die Farbe setzen. 

SETMOUSE x-Position,y-Position 

Setzt den Mauszeiger auf die angegebene Position. 

SETTIME Zeit-String,Datums-String 

- Setzen der Systemzeit bzw. des Systemdatums. 

settime "10:13","19.02.1988" Sekunden brauchen nicht angegeben zu 

werden. 


SGET Stringvariable 

- Lies den gesamten Bildschirmspeicher in die Stringvariable ein. 

SHOWM 

- Schaltet den Mauszeiger wieder ein. 

SINGLE { Adresse)=numerischer Ausdruck 

- Schreibt den Wert des Ausdrucks als 4 Byte Fließkommavariable (IEEE- 
Single-Format) in den Speicher. 

SOUND Stimme 1..3,Lautstärke,Note,Oktave,Verzögerung 

- Spielen von Tönen. 

sound 1,15,10,4,500 Spielt den Kammerton a (440 Hz) 10 

Sekunden lang (500/50) 

SOUND Stimme,Lautstärke,^Periode, Verzögerung 

- Spielen von Tönen. 

sound 1,15,#284,500 Spielt den Kammerton a (284 = 

125000 DIV 440). 
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SPOKE numerischer Ausdruck,Wert 0..255 

SDPOKE numerischer Ausdruck,Wert 0..65535 

SLPOKE numerischer Ausdruck,Wert -2147483648..2147483647 

- Haben die gleiche Funktion wie die oben beschriebenen Befehle POKE, 
DPOKE und LPOKE, arbeiten jedoch im Supervisiormodus und können 
somit auch geschützte Speicherbereiche ansprechen. 

SPRITE Stringvariable |,x,y] 

- Setzt ein Sprite an die Stelle x,y. Die Definition eines Sprite erfolgt 
ähnlich wie bei dem Befehl DEFMOUSE. 

SPUT Stringvariable 

- Kopiert den Inhalt der Stringvariablen in den Bildschirmspeicher, (siehe 
SGET). 

SSORT Arrayname([/+/-/])\,Anzahl Elemente^,Integerarray] 

- Sortiert das Array (mit numerischen Werten) in der angegebenen Länge 
auf- oder absteigend nach dem Shell-Sort Verfahren. In dem zusätzlich 
aufgelisteten Array werden die Vertauschungen analog durchgeführt. 

SSORT Arrayname( I/+/-/1) WITH Arrayttame \,lntegerarray\ 

- Sortiert das Array (mit Strings) nach dem Shell-Sort Verfahren. In dem 
zusätzlich aufgeführten Integerarray werden die Vertauschungen gleich¬ 
zeitig durchgeführt. Das Array das hinter WITH steht gibt die Sortier¬ 
reihenfolge an. 

STICK /0/1/ 

- Umschalten zwischen Maus- (0) und Joystickkoordinaten (1) bei den 
Funktionen STICK() und STRIG(). 

STOP 

- Stoppt die Programmausführung. Wird das Programm nicht geändert, so 
kann mit dem Befehl CONT beim nächsten Befehl fortgefahren werden. 

SUB Variablenname,numerischer Ausdruck 

- Vermindert den Wert einer Variablen um den den Wert des numerischen 
Ausdruckes. 

SWAP Variablenname,Variablenname 

- Vertauscht den Inhalt der beiden Variablen ohne zusätzliches 
Zwischenspeichern. 

swap t,r Vertauscht den Inhalt von 1 und r. 

SYSTEM 

- Befehl zum Verlassen des Interpreters (Entspricht QUIT). 
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TEXT x,y,[Länge, \Stringausdruck 

- Text im Graphikmodus auf den Bildschirm ausgeben. 

TITLEW Fensternummer,Zeichenkette 

- Setzen der Überschrift eines Fensters. 

TOPW #Fensternummer 

- Aktiviert das angegebene Fenster. 

TRON \#Kanalnummer] 

- Schaltet den Trace-Modus ein. Die Ausgabe kann auch auf einen 
geöffneten Datenkanal erfolgen. 

TRON Unterprogrammname 

- Schaltet den Trace-Modus ein. Vor Abarbeitung eines Befehls wird in 
die angegebene Unterroutine gesprungen. 

TROFF 

- Schaltet den Trace-Modus wieder aus. 

VOID Funktionsaufruf 

- Verwirft das Ergebnis des Funktionsaufrufes, z.B. wenn es nicht 
benötigt wird. 

void inp( 2 > Wartet auf einen Tastendruck. 

VSETCOLOR Farbregister,/rot,grün,blau 0..7/Farbe 0..1911/ 

- Für ein Farbregister die Farbe setzen. Die Farbregister-Zuordnung ent¬ 
spricht der für den COLOR-Befehl. 

VSYNC 

- Wartet, bis der Bildsynchronimpuls auftritt. (Für Grafik). 

VTAB Zeilennummer 

- Positioniert den Cursor in die angegebene Zeile. 

WAVE Stimme,Hüllkurve,Wellenform,Daueryerzögerung 

- Einstellen der Parameter für die Tonerzeugung. 

wave 7,7,10,5000,300 Alle Kanäle an und Dreieck- 

wave 0,0 Schwingung einstellen. WAVE 0,0 

schaltet alles wieder aus. 

WHILE logischer Ausdruck Anweisungsfolge WEND 

- Abweisende Schleife. Die Schleifenbedingung wird am Anfang geprüft. 
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2.4.2.2 Alle Funktionen ohne Dateizugriff 
*Variablenname 

- Ergibt die Adresse, wo die Variable gespeichert ist (Zeiger auf die Va¬ 
riable). 

zeiger% = *a Entspricht a=17. (siehe auch * als Be- 

*zeiger% = 17. fehl). 

[Adresse) 

- Liefert einen 4 Byte langen Wert aus dem Speicher. Entspricht LPEEK. 

ABS {numerischer Ausdruck) 

- Ergibt den Betrag des Ausdrucks. 

ACOS(numerischer Ausdruck) 

- Liefert den Arcuscosinus des Ausdrucks (im Bogenmaß angeben). 

ADD(numerischer Ausdruck,numerischer Ausdruck) 

- Ergibt die Summe der beiden Ausdrücke. 

ADDRIN 

- Ergibt die Adresse des AES-Adress-Input Blockes 

ADDROUT 

- Ergibt die Adresse des AES-Adress-Output Blockes 

AND(numerischer Ausdruck,numerischer Ausdruck) 

- Ergibt die logische AND-Verknüpfung der beiden Ausdrücke. 

ARRPTR(S/rmg oder Feldvariable) 

- Ergibt die Adresse des Descriptors der angegebenen Variablen. Der De- 
scriptor enthält Informationen über Länge des Feldes und die Adresse, wo 
es im Speicher abgelegt ist. 

ASC (Stringausdruck) 

- Codezahl gemäß ASCII für das erste Zeichen des Strings nennen. 

print asc("=") Ergibt 61 (Ordnungszahl im ASCII- 

Code). 

print Asc(y$) Ergibt die Ordnungszahl für das erste 

Zeichen im String y$. 

ASlN(numerischer Ausdruck) 

- Liefert den Arcussinus des Ausdrucks (im Bogenmaß angeben). 
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ATN(numerischer Ausdruck) 

- Arcustangens im Bogenmaß angeben. 

BASEPAGE 

- Ermittelt die Adresse der Basepage von GFA-Basic. Dort sind 
Systeminformationen gespeichert. 

BCH G(numerischer Ausdruck,Nummer des Bits) 

- Invertiert das angegebene Bit, d.h. 0 wird zu 1 und 1 zu 0. 

BCLR(num'erischer Ausdruck,Nummer des Bits) 

- Löscht das Bit an der angegebenen Position. 

print bclr(7,2) Gibt 3 aus, da Bit 2 gelöscht worden 

ist. 7-2 2 = 4 

BIN ^(numerischer Ausdruck,Stellenzahl) 

- Ergibt die binäre Darstellung des Wertes als String. Die Ausgabe erfolgt 
in der angegebenen Anzahl Dualstellen. 

print bin$( 14,5) Es wird "01110" ausgegeben. 

B\OS(Funktionsnummer ,[,P arameterlisteX) 

- Aufruf einer Betriebssystemroutine (BIOS = Basic Input/Output 
System). 

BSET(numerischer Ausdruck,Nummer des Bits) 

- Setzt das angegebene Bit unabhängig vom vorhergehenden Zustand. 

print bset(1 ,2) Gibt 5 aus. 

BTSF(numerischer Ausdruck,Nummer des Bits) 

- Testet, ob ein bestimmtes Bit in dem Wert des Ausdruckes gesetzt ist. 

print btst (5,0) Gibt -1 (TRUE) aus, da Bit 0 gesetzt. 

BYTE (Adresse) 

- Liest ein Byte aus dem Hauptspeicher. 

BYTE (numerischer Ausdruck) 

- Ergibt den Wert, den die untersten acht Bits des Ausdruckes darstellen. 

PRINT BYTEC257) Gibt 1 aus, denn nur Bit 0 und 9 sind 

gesetzt. 
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C :Variablenname(Parameterliste) 

- Ruft ein Maschinenspracheprogramm auf. Die Parameter werden nach 
Konventionen der Programmiersprache "C" übergeben. 

C:a%(L:0) a% enthält die Anfangsadresse des 

Maschinenprogrammes. Es wird eine 0 
als Langwort (4 Bytes) übergeben. 


CARD { Adresse) 

- Liest zwei Bytes aus dem Speicher. 

CAKD(ttumerischer Ausdruck) 

- Ergibt den Wert, den die untersten 16 Bits des Ausdruckes darstellen. 
CFLOAT(numerischer Ausdruck) 

- Wandelt den ganzahligen Wert des Ausdrucks in einen Wert vom Typ 
Real um. 

CHR ^{numerischer Ausdruck ) 

- Ergibt das Zeichen, dessen ASCII-Code dem Wert des numerischen 
Ausdruckes entspricht. 

print chr$(65) Gibt "A" aus. 

ClNT(Stringausdruck) 

- Wandelt den Stringausdruck in einen Zahlenwert vom Typ Integer um. 
CONTRL 

- Ergibt die Adresse des VDI-Control Blocks. 

COS(numerischer Ausdruck) 

- Liefert den Cosinus des Ausdrucks (im Bogenmaß angeben). 

COS Q{numerischer Ausdruck) 

- Wie COS, das Ergebnis wird jedoch aus einer Tabelle gelesen und 
interpoliert. Diese Funktion ist wesentlich schneller, aber auch ungenauer. 

CRSCOL 

- Ergibt die Spaltennummer, in der der Cursor sich gerade befindet. 
CRSLIN 

- Ergibt die Zeilennummer, in der der Cursor sich gerade befindet. 

print crslin Gibt die Zeilenposition des Cursors 

aus. 
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DATES 

- Ergibt das Systemdatum als Zeichenkette. 

print date$ Ergibt String im Format "tt.mm.jjjj" 

DEG(Winkel im Bogenmaß) 

- Rechnet den gegebenen Winkel in Gradmaß um. 

DFREE (Laufwerknummer) 

- Ergibt den freien Speicherplatz auf der Diskette im angegebenen Lauf¬ 
werk. 

YilM1(Feldname()) 

- Ergibt die Anzahl der Elemente des Arrays. 

dim a%(2io> Gibt 211 aus, denn das Feld beginnt 

print DiM?(a%o> mit dem Index 0. 

DYV(Integer-Ausdruck,Integer-Ausdruck) 

- Liefert das Ergebnis der Division des Wertes des ersten Ausdrucks 
durch den Wert des zweiten. 

DOUBLE {Adresse) 

- Liest 8 Bytes aus dem Speicher und übergibt den Wert im IEEE-Double 
Format. 

EQV (numerischer Ausdruck,numerischer Ausdruck) 

Verknüpft die beiden Argumente bitweise. Stimmt der Zustand eines Bits 
in beiden Werten überein, so wird das entsprechende Bit im Ergebnis ge¬ 
setzt. 

ERR 

- Fehlercode des zuletzt aufgetretenen Fehlers angeben. 

ERR $(Fehlernummer) 

- Ergibt die zu der Fehlernummer gehörende GFA-Basic Fehlermeldung 

im für die FORM_ALERT-Funktion verständlichen Format. 

EXP(numerischer Ausdruck) 

- Exponentialfunktion zur Basis e. 

print expo) Gibt die Eulersche Zahl e aus. 

EVEN(numerischer Ausdruck) 

- Ermittelt, ob der Wert des numerischen Ausdruckes eine gerade Zahl 
ist. 


PRINT EVEN(1024) 


Ergibt -1 = TRUE. 
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FATAL 

- Gibt bei "normalen" Fehlern eine 0 bei Systemfehlern eine -1 zurück. 

FI X(ttumerischer Ausdruck) 

- Liefert die nachkommastellenlose Zahl als Ergebnis. 

FLOAT { Adresse } 

- Liest 8 Bytes aus dem Speicher und übergibt den Wert im GFA-Basic 
3.0 Format. 

FRAC(««wer/ scher Ausdruck) 

- Ergibt die Nachkommastellen eines Wertes. 

FREE(n) 

- Ergibt die Größe des freien Hauptspeicherplatz, n muß angegeben wer¬ 
den, wird aber nicht beachtet. 

GB 

- Ergibt die Adresse des AES-Parameter Blocks. 

GCONTRL 

- Ergibt die Adresse des AES-Control Blocks. 

GDOS? 

- Ergibt TRUE, wenn GDOS geladen ist, sonst FALSE. 
GEMDOS(Fmktionsnummer[,Parameterliste]) 

- Aufruf einer Betriebssystemroutine (GEMDOS = GEM Disk Operating 
System). 

GEMSYS [ Funktionsnummer] 

- Aufruf einer Betriebssystemroutine. 

GINTIN 

- Ergibt die Adresse des AES-Integer-Input Blocks. 

GINTOUT 

- Ergibt die Adresse des AES-Integer-Output Blocks. 

HEX$(numeri scher Ausdruck) 

- Ergibt die hexadezimale Darstellung eines Wertes als String. 

PRINT hex$(65535) Gibt den String "FFFF" aus. 
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IMP {Integer-Ausdruck,Integer-Ausdruck) 

- Liefert als Ergebnis die bitweise Verknüpfung der beiden Ausdrücke 
mittels der Implikation. 

INKEY$ 

- ASCII-Code der zuletzt gedrückten Taste angeben. 

repeat Wartet auf einen Tastendruck. 

UNTIL INKEYS <> 

YNVI {Gerätenummer) 

- Ergibt den Eingabestatus eines Gerätes. 

repeat Wartet bis eine Taste gedrückt wird, 

until inp?(2 > dann hat INP?(2) den Wert -1, also 

TRUE. 


INTIN 

- Ergibt die Adresse des VDI-Integer-Input Blocks. 

INTOUT 

- Ergibt die Adresse des VDI-Integer-Output Blocks. 

INSTR([m/memc/i<?r Ausdruck, \String- Ausdruck,String-Ausdruck) 
YNSTR{String-Ausdruck,String-Ausdruck\,numerischer Ausdruck]) 

- Ergibt die Position eines Strings innerhalb eines anderen Strings. 

INT{/4rfre55e} 

- Liest 2 Bytes aus dem Speicher und übergibt den Wert im Integer For¬ 
mat mit Vorzeichen. 

YNT{numerischer Ausdruck) 

- Ergibt die größte ganze Zahl kleiner oder gleich dem Wert des numeri¬ 
schen Ausdruckes. 


L~A 

- Ergibt die Basisadresse der Line-A-Variablen. 

~LE¥T%{String-Ausdruck],Stellenanzahl]) 

- Linken Teilstring angeben. 

LEN {String-Ausdruck) 

- Ergibt die Länge eines String-Ausdruckes. 
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LOG(numerischer Ausdruck) 

- Ergibt den natürlichen Logarithmus (Basis e). 

print LOGO) Der Logarithmus von 1 ist 0, da e° 

gleich 1 ist. 


LOG10(numerischer Ausdruck) 

- Ergibt den dekadischen Logarithmus (Basis 10). 

LONG [Adresse) 

- Liest 4 Bytes aus dem Speicher und übergibt den Wert im Integer¬ 
format. 

LPOS(m) 

- Anzahl der Druckzeichen seit letztem Zeilenvorschub angeben. 

MALLOC (/-1/Anzahl Bytes/) 

- Reserviert Speicherplatz in der angegebenen Länge und übergibt die 
Anfangsadresse. Bei Angabe von -1 als Argument wird die Länge des 
größten zusammenhängenden Speicherbereichs zurückgegeben. 

MAX(Lzs/e von numerischen Ausdrücken) 

- Ergibt den größten Wert aus der Liste. 

print maxo , 10 , 3 , 2 , ii) Gibt das größte Element der Liste, also 

11, aus 

MENV5(numeri scher Ausdruck(-2..15)) 

- Vordefinieirtes Array, das Daten über Ereignisse enthält. 

MFREE(y4ü?re55e) 

- Gibt einen zuvor mit MALLOC reservierten Speicherbereich wieder 
frei. Rückgabewert ist 0, wenn die Freigabe korrekt durchgeführt worden 
ist, oder ein negativer Wert, wenn ein Fehler aufgetreten ist. 

MlD$(String-Ausdruck,Start position,Länge) 

- Teilstring ab einer Startposition in einer bestimmten Länge angeben. 

print MiD$("Rosen",3) ergibt "sen". 

MIN(L/stc von numerischen Ausdrücken) 

- Ergibt das kleinste Element der Liste. 

print mino, io, -1,3) Gibt das kleinste Element, also -1, aus 

MOD (Integer-Ausdruck,Integer-Ausdruck) 

- Ergibt den Rest bei Ganzzahl-Division des ersten Ausdrucks durch den 
zweiten. 
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MOUSE x-Position,y-Position,Tastenstatus 

- Gibt die Mausposition und den Zustand der Maustasten zurück. 

DO 

MOUSE a,b,c 
PRINT AT(1,1);a,b,c 
LOOP 

MOUSEX 

MOUSEY 

MOUSEK 

- Gibt die Mausposition und den Zustand der Maustasten zurück. 

do Gibt die aktuelle Position der Maus 

print mousex,mousey,mousek und den Status der Tasten aus. Werden 

exit if mousek=3 beide Tasten gedrückt, wird die 

loop Schleife verlassen. 

MSHRINK ( Adresse) 

- Verkleinert einen zuvor mit MALLOC reservierten Speicherbereich. Der 
Rückgabewert ist 0, wenn die Funktion korrekt durchgeführt worden ist, 
oder negativ, wenn ein Fehler aufgetreten ist. 

MUL ( Integer-Ausdruck , Integer-Ausdruck ) 

- Liefert den Wert der Multiplikation der beiden Ausdrücke miteinander. 
OCT$(numerischer Ausdruck) 

- Ergibt die oktale Darstellung eines Wertes als String. 

print oct$(&hff) Gibt jeweils 377 aus. 

PRINT OCT(512) 

ODD(numerischer Ausdruck) 

- Ergibt -1 (TRUE), wenn der Ausdruck eine ungerade Zahl ist, sonst 0 
(FALSE). 

print odd(3) Ergibt -1, denn 3 ist ungerade. 

OR(Integer- Ausdruck, Integer- Ausdruck) 

- Ergibt die logische OR-Verknüpfung der beiden Ausdrücke. 

OUT 1(Gerätenummer) 

- Ergibt den Ausgabestatus eines Gerätes. (TRUE, wenn das Gerät bereit 
ist ein Zeichen zu empfangen, sonst FALSE). 

PEEK(numerischer Ausdruck) 

- Gibt den Wert einer Speicherstelle zurück (1 Byte). 
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PI 

- Konstante PI = 3.15159265... (Kreiszahl) 

PRINT PI 

POINT(x,y) 

- Ergibt den Farbwert des Punktes (x,y) 

plot io,io Gibt die Farbe des Punktes (0-15) aus. 

PRINT POINT(IO.IO) 

POS(m) 

- Ergibt die Anzahl der seit dem letzten Wagenrücklauf ausgegebenen 
Zeichen. 

PRED {Integer-Ausdruck) 

- Liefert den "Vorgänger", also die nächst kleinere ganze Zahl. 

PTSIN 

- Ergibt die Adresse des VDI-Punkt-Input Blocks. 

PTSOUT 

- Ergibt die Adresse des VDI-Inpunkt-Output-Blocks. 

PTST(x,y) 

- Ergibt die Farbe des Bildpunktes an der angegebenen Position. 

RAD (Winkel im Gradmaß ) 

- Rechnet den gegebenen Winkel in Bogenmaß um. 
RAND(Integer-Ausdruck) 

- Erzeugt eine Zufallszahl und übergibt sie im 2 Byte Integer Format. 
RANDOM(««menscAer Ausdruck) 

- Gibt eine ganzahlige Zufallszahl zwischen 0 und dem angegebenen Wert 
minus 1 zurück. 

print random(IO) Die ausgegebene Zufallszahl hat einen 

Wert zwischen 0 und 9. 

RC_INTERSECT(xl,yl,Breitel,Höhel,x2,y2,Breite2,Höhe2) 

- Stellt fest, ob sich zwei gegebene Rechtecke überlappen. Es wird TRUE 
zurückgegeben, wenn sie sich überlappen, sonst FALSE. x2, y2, Breite2 
und Höhe2 müssen Variablen sein, sie enthalten nach dem Aufruf die 
Koordinaten des überlappenden Rechtecks. 
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RC_COPY Quell-Adresse,x,y,Breite,Höhe 
TO Ziel-Adresse,x,y,Breite,Höhe 

- Erlaubt das Kopieren von Rechtecken zwischen verschiedenen Bild¬ 
schirmen. Es muß jeweils die Anfangsadresse des Bildschirmspeichers an¬ 
gegeben werden. 

RlGHT$(String-Ausdruck[,Länge]) 

- Rechten Teilstring angeben. 

RINSTR([«wwm'5c/zer Ausdruck, \String- Ausdruck,String-Ausdruck) 
BJNSTB.(String-Ausdruck,String-Ausdruck],numerischer Ausdruck]) 

- Wie INSTR, nur wird hier der String von rechts beginnend durchsucht. 

RND[(x)] 

- Zufallszahl vom Typ Real zwischen 0 (einschließlich) und 1 (aus¬ 
schließlich) angeben. 

ROL Typzeichen (Integer-Ausdruck,Integer-Ausdruck) 

ROR Typzeichen (Integer - Ausdruck,Integer-Ausdruck) 

- Liefert das Ergebnis der bitweisen Rotation des Wertes des ersten Aus¬ 
drucks um den Wert des zweiten Ausdrucks. ROL rotiert nach links, ROR 
nach rechts. 

print rol( 1,1 ) Rotiert den Wert 1 um ein Bit nach 

links. Es wird 2 ausgegeben. 

ROUND (numerischer Ausdruck],Anzahl Stellen]) 

- Rundet den Wert des Ausdrucks auf die angegebene Anzahl Nach¬ 
kommastellen. 

SGN (numerischer Ausdruck) 

- Vorzeichen +1 (positiv), 0 (null) oder -1 (negativ) angeben. 

PRINT SGNC-4.35) Gibt "-1" aus. 

SHL Typzeichen (Integer-Ausdruck,Integer-Ausdruck) 

SHR Typzeichen (Integer-Ausdruck,Integer-Ausdruck) 

- Liefert das Ergebnis der bitweisen Verschiebung des ersten Ausdrucks 
um den Wert des zweiten Ausdrucks. SHL verschiebt nach links, SHR 
nach rechts. 

SIN (numerischer Ausdruck) 

- Sinus eines Winkels in Bogenmaß angeben. 

SINGLE {Adresse) 

- Liest 4 Bytes aus dem Speicher und übergibt den Wert im IEEE-Single 
Format. 
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SIN Q(numerischer Ausdruck) 

- Sinus eines Winkels in Bogenmaß angeben. Der Wert wird aus einer Ta¬ 
belle ermittelt, die Funktion ist darum schneller aber auch ungenauer als 
SIN. 

SPACE ^(numerischer Ausdruck) 

- String aus Leerstellen in angebener Länge bereitstellen. 

let a$=spACE$(5)+"A" a$ den String " A" zuweisen. 

SPC {numerischer Ausdruck) 

- In einem PRINT-Befehl eine bestimmte Anzahl Leerstellen ausgeben. 

PRINT ,, A";SPC(5);"B" Gibt "A B" aus. 

SQR (numerischer Ausdruck) 

- Ergibt die Quadratwurzel des Argumentes. 

print sqr(2 ) Gibt die Quadratwurzel von 2 aus: 

1.4142... . 

STICK(Port) 

- Fragt den Joystick ab. 

STRIG(Port) 

- Fragt den Zustand des Knopfes am Joysticks ab. 

STR$(numerischer Ausdruck\,Integer-Ausdruck\,Integer-Ausdruck]]) 

- Zahl in einen String umwandeln (Umkehrung zu VAL). 

LET z$=STR$(76,3) ergibt String " 76". 

LET r$=STR$(-88.5) ergibt String "-88.5" 

STRING$(4«zu/j/,/ String-Ausdruck/numerischer Ausdruck/) 

- Verketten eines Strings zu einem neuen String. 

print string$(2,"abc") Ergibt die Ausgabe "ABCABC" 

z$=str i ng$ (5,65) Ergibt "AAAAA", denn der ASCII- 

Code von "A" ist 65. 

SVB(Integer-Ausd ruck,Integ er-A usd ruck) 

- Liefert das Ergebnis der Subtraktion des Wertes des zweiten Ausdrucks 
vom Wert des ersten. 

SVCC(numerischer Ausdruck) 

- Ergibt den "Nachfolgewert" des Ausdrucks, d.h. die nächstgrößere ganze 
Zahl. 

SW AF(Integer-Ausdruck) 

- Vertauscht das obere Wort (16 Bits) des Wertes mit dem unteren Wort. 
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TAB {numerischer Ausdruck) 

- In einem PRINT-Befehl Tabulatorsprung in die angegebene Spalte 
durchführen. Bei TAB hat die erste Spalte die Nummer 0. 

TAN {numerischer Ausdruck) 

- Ergibt den Tangens eines Winkels im Bogenmaß. 

TIMES 

- Ergibt die Systemzeit als String. 

print Times Systemzeit im Format "hh:mm:ss M aus¬ 

geben. 


TIMER 

- Ergibt die Zeit seit dem Einschalten in 1/200 Sekunden. 

TRACES 

- Enthält im Trace-Modus immer den nächsten Befehl der ausgeführt 
werden soll. 

TRIM$(Stringausdruck) 

- Ergibt den Stringausdruck ohne Leerzeichen am linken und rechten 
Rand. 

TRUN C{numerischer Ausdruck) 

- Ergibt den ganzzahligen Anteil einer Zahl durch Abschneiden der 
Nachkommastellen. 

TYPE (Zeigervariable) 

- Ergibt den Typ der Variablen, auf den die Variable zeigt. 

zeiger%=*ai Gibt 3 aus. (Zeiger auf Bool’sche Va- 

PRINT TYPE(zeiger%) riable). 

UFFER$(String-Ausdruck) 

- Liefert den String-Ausdruck in Großbuchstaben. 

PRINT UPPER$("Yasemin") Gibt "YASEMIN" aus. 

W'.Variablenname 

- Entspricht der Funktion VARPTR. 

VAL (String-Ausdruck) 

- String in einen numerischen Wert umwandeln (Umkehrung zu STR$). 

print VAL("5l dm 11 ) ergibt 51 (bis zur ersten Nicht-Ziffer). 

print val("7 5 9 7 ") ergibt 7597 (Leerstellen ignoriert). 
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V AL"!(String-Ausdruck) 

- Ergibt die Anzahl der Zeichen, die mit VAL in eine Zahl umgewandelt 
werden können. 

print val?("51 OM") ergibt 2. 

V ARPTR( Variabl enname) 

- Ergibt die Anfangsadresse einer Variablen im Speicher. 

VDIBASE 

- Ergibt die Adresse, an der die Systemtabellen des GEM gespeichert 
sind. 

VDISYS \Funktionsnummer[,Anzahl INTIN,Anzahl PTSINI,Unterfkt.]]] 

- Aufruf einer Betriebssystemroutine (VDI = Virtuell Device Interface). 

W _HAND(# Fenster nummer ) 

- Ergibt den GEM-Handle des Fensters. 

Vf_TSDEX(#Handle-Nummer ) 

- Ergibt die Fensternummer zu einer gegebenen Handle-Nummer 
WINDTAB 

- Enthält die Adresse der Parameter-Tabelle für die Fensterdaten. 

WINDT AB(Fensternummer,Parameter) 

- Vordefiniertes Array, in dem die Fensterdaten direkt gesetzt werden 
können. 

WORD {Integer-Ausdruck) 

- Ergibt den Wert, den die untersten 16 Bits des Ausdrucks darstellen. 
WORK_OUT(0-57) 

- Vordefiniertes Feld mit VDI-Systemvariablen. 
XBIOS(Funktionsnummer[,Parameterliste] 

- Aufruf einer Betriebssystemroutine (XBIOS = Extended Basic 
Input/Output System). 

XOB(Integer-Ausdruck,Integer-Ausdruck) 

- Ergibt die logische XOR-Verknüpfung der beiden Ausdrücke. 
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2.4.2.3 Alle Anweisungen und Funktionen zum Dateizugriff 
BLOAD "Filename"[,Adresse] 

- Laden einer Datei in den durch die angegebene Adresse festgelegten 
Speicherbereich. Wird sie nicht angegeben, so wird die Adresse benutzt, 
die beim Speichern mit BSAVE mit in die Datei geschrieben wurde. 

bload "Screen",XBios(2) Laden des mit BSAVE abgespeicherten 

Bildschirminhaltes. 

BGET ]#]Kanalnummer,.Adresse,Länge 

- Liest einen Datenblock mit angegebener Länge über einen Datenkanal 
ein. Im Unterschied zu BLOAD kann eine Datei auch aus mehr als einem 
Block bestehen. 

BPUT ]#]Kanalnummer,Adresse,Länge 

- Gibt einen Speicherbereich ab einer Adresse in der angegebenen Länge 
über einen Datenkanal aus. Im Unterschied zu BSAVE kann eine Datei 
auch aus mehr als einem Block bestehen. 

BSAVE "Filename",Adresse,Länge 

- Abspeichern eines Hauptspeicherbereiches. Die Adresse wird dabei mit 
in die Datei geschrieben. 

bsave "Screen" f XBios<2),32000 Speichert den aktuellen Bildschirmin¬ 
halt ab. XBIOS(2) liefert dabei die 
Adresse, wo die Bilddaten im Speicher 
zu finden sind. 

CHAIN "Programmname" 

- Dient der Verkettung von Programmen, d.h. das angegebene Programm 
wird geladen und gestartet. Das Programm,das bis dahin gelaufen ist steht 
nicht mehr zur Verfügung. 

chain "menue.gfa“ Das Programm MENUE.GFA wird ge¬ 

laden und gestartet. 


CHDIR "Verzeichnisname” 

- Wechseln des aktuellen Verzeichnisses. 

chdir "v Wechselt in das Wurzelverzeichnis. 

chdir "\2-5“ Wechselt in das Verzeichnis "2-5". 


CHDRIVE Stringausdruck 

- Wechseln des aktuellen Laufwerks. Der erste Buchstabe des Ausdrucks 
wird als Laufwerkskennung herangezogen. 
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CLOSE [^[Kanalnummer]] 

- Schließen eines geöffneten Datenkanals. Ohne Angabe der Kanal¬ 
nummer werden alle offenen Kanäle geschlossen. 

close #2 Schließt Kanal 2. 

CVI ( Stringausdruck) 

CVL ( Stringausdruck ) 

CVS ( Stringausdruck) 

CVF ( Stringausdruck) 

CVD ( Stringausdruck ) 

- Diese Befehle werden benutzt, um nach dem Lesen aus einer Direktzu¬ 
griffsdatei die im Dateipuffer stehende Werte in numerische Werte um¬ 
zuwandeln. 


DIR ["Dateiname^ TO /"Filename" / Ausgabeeinheit /]] 

- Ausgabe der Directory. Wird TO angegeben, so kann die Ausgabe in 
eine Datei, oder auf eine andere Ausgabeeinheit geleitet werden. 

dir "*.bas" to "Verz" Listet alle Dateien mit der Erweiterung 

M BAS M in die Datei "Verz". 


DIR $(Lauf werknummer) 

- Ergibt den Namen des aktuellen Zugriffspfades für das angegebene 
Laufwerk. 

chdir "\" Es wird ein Leerstring ausgegeben, da 

print dir$(0 ) das Wurzelverzeichnis angewählt 

wurde. 

EOF ([ ^Kanalnummer) 

- Ergibt -1 (TRUE) wenn das Dateiende erreicht ist, sonst 0 (FALSE). 

IF eofc#i) THEN Steht der Dateizeiger der Datei, die 

gosub datei__erwei tern auf Datenkanal 1 geöffnet ist, auf 

endif Dateiende, so wird das Unterprogramm 

aufgerufen. 


EXIST ("Filename") 

- Ergibt -1 (TRUE) wenn die angegebene Datei existiert, sonst 0 
(FALSE). 

if exist ('•sequenji") then Gibt den Text nur aus, wenn die Datei 

PRINT "Existiert." existiert. 

ENDIF 


FGETDTA() 

- Ergibt die Disk-Transfer-Adresse. 
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FIELD [ #]Kanalnummer,numerischer Ausdruck AS Stringvariablenname ... 
FIELD \#\Kanalnummernumerischer Ausdruck AT ( *Variablenname) 

- Pufferspeicher zur Aufnahme der umgewandelten Datenfeldvariablen 
für die Direktzugriffsdatei vereinbaren. 

field #1,2 as pl$,20 as p2$ Dateipuffer mit zwei Feldern. 

FILES {"Filename" [TO /"Filename" / Ausgabeeinheit/]] 

- Listet ein Dateiverzeichnis wie DIR, nur etwas ausführlicher. 

files '•».bas" to »PAR:" Listet das Inhaltsverzeichnis auf den 

Drucker. 


FSETDT A(Adresse) 

- Setzt die Disk-Transfer-Adresse auf die angegebene Adresse. 
FSFIRST(Stringausdruck,Attribute) 

- Sucht nach der ersten Datei, die die angegebenen Suchkriterien erfüllt. 
FSNEXT() 

- Sucht nach weiteren Dateien nach dem Aufruf von FSFIRST. 

GET \#]Kanalnummer\,Datensalznummer\ 

- Datensatz von Direktzugriffsdatei in den FIELD-Dateipuffer lesen. 

INP {# Kanalnummer) 

- Ein Byte von einer Datei lesen. 

lNY(Eingabeeinheit) 

- Liest ein Byte von einer Eingabeeinheit. 

INPUT #Kanalnummer,Variablenliste 

- Von einer Datei Datenfelder in den Hauptspeicher lesen. 

input #1 ,z%,a$ Eine Zahl und einen String einiesen. 

INPUT$(Anzahl[ t #Kanalnummer\) 

- Eine Anzahl Zeichen aus einer Datei oder von der Tastatur einiesen. 
KILL " Filename " 

- Eine oder mehrere Dateien von der Diskette löschen. 

kill "Einkauf.tos" Löscht die Datei EINKAUF.TOS. 

kill "*.bak" Löscht alle Dateien vom Typ "BAK". 

LINE INPUT ^Kanalnummer ^Variablenliste 

- Funktioniert wie INPUT, nur werden Kommata mit eingelesen und 
nicht als Trennzeichen interpretiert. 



162 


2 Bedienung und Sprachreferenz von GFA-Basic 


LIST "Filename" 

- Listet das Programm im Arbeitsspeicher auf dem Bildschirm, oder spei¬ 
chert es unter dem gegebenen Namen auf Diskette. 

list Erzeugt Bildschirmlisting. 

list "test-lst» Speichert das Programm auf Diskette 

im ASCII-Format ab. 

LOAD "Filename" 

- Lädt ein Programm von der Diskette in den Arbeitsspeicher. 

load "Lager» Lädt das Programm Lager.GFA. 

LOC ([ ^Kanalnummer) 

- Ergibt den Wert des Dateizeigers der Datei auf dem angegebenen Kanal. 

print loc(#i) Gibt die Position des Dateizeigers aus. 

LOF ([#] Kanalnummer) 

- Ergibt die Länge der Datei, die auf dem angegebenen Kanal geöffnet 
ist. 

print lofc# 2) Gibt die Länge der Datei auf Kanal 2 

aus. 

LSET Stringvariable-String-Ausdruck 

- String linksbündig in die Stringvariable setzen und mit Leerstellen auf¬ 
füllen. Wird meistens verwendet, um Daten in den Dateipuffer zu setzen. 

MKDIR " Unterverzeichnisname" 

- Neues Unterverzeichnis erzeugen. 

MKI$(numerischer Ausdruck) 

MKL ^{numerischer Ausdruck) 

MKS$(numerischer Ausdruck) 

MKF %{numerischer Ausdruck) 

MKD $(numerischer Ausdruck) 

- Numerische Werte in Strings umwandeln, um sie in den Dateipuffer 
schreiben zu können. 

lset pi$ = MKL$(num%) Wert der Variablen num umwandeln 

und in den Dateipuffer setzen. 

NAME "Alter Filename" AS "Neuer Filename" 

- Umbenennen einer Diskettendatei. 

OPEN "Modus'\[#]Kanalnummer"Filename"\)Länge] 

- Datei oder Ein-Ausgabeeinheit öffnen. 
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OUT /^Kanalnummer / Ausgabeeinheit/ 

- Gibt ein Byte auf eine Datei oder eine Ausgabeeinheit aus. 

out #1,65 Ein Byte auf eine Datei ausgeben. 

out 0,15 Dem Drucker (= 0) den Befehl zum 

Seiten Vorschub geben. (15 = Formular - 
Feed). 

PRINT #Kanalnummer[,Liste von Ausdrücken[ 9 ][;W]] 

- Datensätze in eine Datei schreiben. 

PRINT ^Kanalnummer ,USING Formatstring,Liste von Ausdrücken [;] 

- Datensätze formatiert in eine Datei schreiben. 

PSA VE "Filename" 

- Ein mit PSA VE gespeichertes Programm wird nach dem Laden sofort 
ausgeführt und kann nicht gelistet werden. 

PUT l#]Kanalnummerl 9 Datensatznummer] 

- Inhalt des Dateipuffers in eine Direktzugriffsdatei schreiben. 

RECALL ^Kanalnummer^Stringarray,max Anzahl Zeilenjntegervariable 

- Liest mehrere Zeilen aus einer Textdatei. Es kann eine maximale An¬ 
zahl vorgegeben werden. In dem letzten Parameter (Integervariable) stehen 
nach dem Aufruf die tatsächlich gelesene Anzahl. 

RECORD ^Kanalnummer^Datensatznummer 

- Entspricht GET #. 

RELSEEK [^Kanalnummer,An zahl 

- Verschiebt den Dateizeiger von der aktuellen Position aus um die an¬ 
gegebene Anzahl Bytes. 

relseek #1,8 Verschiebt den Dateizeiger erst zum 

relseek #1,-8 Ende der Datei hin, dann wieder zu¬ 

rück. 

RENAME Alter Name AS Neuer Name 

- Umbenennen einer Datei. 

RMDIR "Verzeichnisname" 

- Unterverzeichnis löschen. 

RSET Stringvariable 9 String-Ausdruck 

- String rechtsbündig in einen anderen String setzen. Wird hauptsächlich 
für das Übertragen von Werten in den Puffer einer Direktzugriffsdatei 
benötigt. 
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SAVE " Filename " 

- Speichert das im Hauptspeicher befindliche Programm auf Diskette ab. 

save ''Test" Der Typ ".GFA" wird automatisch er¬ 

gänzt, das File heißt also "TEST.BAS". 

SEEK [# 1 Kanalnummer,Bytenummer 

- Setzt den Dateizeiger auf ein bestimmtes Byte innerhalb der Datei. 

seek # 1,1000 Setzt den Dateizeiger auf das 1000. 

Byte. 

STORE #Kanalnummer,Stringarray\, Anzahl Zeilen] 

- Speichert die Zeichenketten aus dem Array in eine Datei. Es kann die 
Anzahl der Zeilen angegeben werden. 

TOUCH [#]Kanalnummer 

- Aktualisiert das Datum und die Zeitangabe einer Datei. 

WRITE ^Kanalnummer],Liste von Ausdrücken]]',] 

- Datenfelder in eine Datei schreiben, jedoch mit Kommata als Trennzei¬ 
chen. 

write #1,z%,d% Entspricht PRINT #l,z%;",";d%. 


2.4.3 Operatoren für Rechnen, Vergleich und Logik 

Eine Folge von Operatoren (wie ist zu verarbeiten?) und Operanden (was 
wird verarbeitet?) bilden einen Ausdruck. Es gibt Stringausdrücke mit 
Zeichenketten als Operanden und Rechenausdrücke mit Zahlen als Ope¬ 
randen. 

String- bzw. Zeichenkettenausdruck: 

- Folge von Stringkonstanten, Stringvariablen, Stringfunktionen und 
Verkettungsoperator "+". 

- Ergebnis eines Stringausdrucks hat wieder den Datentyp String. 

- Stringkonstante als Zeichenkette mit maximal 32767 Zeichen, die 
zwischen " " zu schreiben sind (z.B. "Juli"). 

Rechenausdruck: 

- Folge von numerischen Konstanten, Variablen, Funktionen und 
Rechenoperatoren. 

- Ergebnis eines Rechenausdrucks ist immer vom Typ Integer oder Real. 



2.4 Alle Befehle von GFA-Basic an Beispielen 


165 


Rechenoperatoren bzw. arithmetische Operatoren: 


Die Rechenoperatoren sind hier nach Priorität geordnet wiedergegeben. 
Das bedeutet, daß die zuerst aufgeführten Operatoren auch zuerst ausge¬ 
führt werden, wenn keine Klammern etwas anderes vorschreiben. 


Potenzierung 

Negation 

Multiplikation 

Division 

Ganzzahldivision 

Modulo 

Addition 

Subtraktion 


A 2 A 3 ergibt 8 

-4 

* 11*4 ergibt 44 

/ 1/2 ergibt 0.5 

DIV, \ 11 D1V 4 ergibt 2 

MOD 11 MOD 4 ergibt 3 
+ 11+4 ergibt 15 

11-4 ergibt 7 


Rechenoperatoren in nach unten abnehmender Rangfolge. 


Vergleichsoperatoren bzw. relationale Operatoren: 

- Verglichen werden entweder zwei Strings oder zwei numerische Werte. 

- Eine Vergleichsoperation liefert ein Bool’sches Ergebnis (TRUE oder 
FALSE als Wahrheitswert). 

- Alle Vergleichsoperatoren haben die gleiche Rangfolge. 


Gleichheit 

s 

Ungleichheit 

<> 

Kleiner als 

< 

Größer als 

> 

Kleiner oder gleich 

<= 

Größer oder gleich 

>= 


"on M ="on" ergibt -1 (TRUE). 
66<>66 ergibt 0 (FALSE) 
"er"<"sie" ergibt -1 
"BAVAB" ergibt -1 
6<*5 ergibt 0 
2>=2 ergibt -1 


Vergleichsoperatoren auf gleicher Rangstufe. 
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Logische Operatoren: 

Die Operatoren NOT, AND, OR, XOR, EQV und IMP verknüpfen zwei 
Operanden, näheres darüber finden Sie in Abschnitt 3.1.2.5. 


Verneinung 

NOT. 

Konjunktion 

AND 

Disjunktion 

OR 

Exklusives Oder 

XOR 

Äquivalenz 

EQV 

Implikation 

IMP 


Logische Operatoren in nach unten abnehmender Rangfolge. 


Rangfolge bei Ausführung zusammengesetzter numerischer Ausdrücke: 

- Ein Ausdruck kann Funktionsaufrufe, Rechen-, Vergleichs- und 
logische Operatoren aufweisen. 

- Ein zusammengesetzter Ausdruck wird in der Rangfolge "Funkti¬ 
onsaufruf (zuerst) bis IMP (zuletzt)" ausgeführt. 

1. Funktionsaufruf zuerst berechnen. 

2. Rechenoperationen in der Reihenfolge Potenzierung bis Addi¬ 
tion/Subtraktion ausführen. 

3. Vergleichsoperationen in der Reihenfolge gleich bis größer gleich 
ausführen. 

4. Logische Operationen in der Reihenfolge NOT bis IMP ausführen. 


Rangfolge bei Ausführung von Operationen 



Programmierkurs 
mit GFA-Basic 


3.1 Grundlegende Programmstrukturen an Beispielen 

vyAbY/// 

3.2 Strings (Texte) 

219 

3.3 Arrays (Felder, Tabellen) 

241 

3.4 Eingabe und Ausgabe 

260 

3.5 Suchen, Sortieren, Mischen und Gruppieren von Daten 

286 

3.6 Sequentielle Datei (Telefondatei) 

317 

3.7 Direktzugriff-Datei (Artikeldatci) 

331 

3.8 Index-sequentielle Datei (Kundendatei) 

350 

3.9 Gekettete Liste als Linked List (Namensdatei) 

360 

3.10 Binärer Baum (Nummerndatei) 


3.11 Verkettete Dateien und Datenbank 

385 

3 J 2 Untcrbrecliungscrcignissü 

391 

3.13 Grafik 

397 

3.34 Maschinennahe Programmierung und Toncizcugung 

429 
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Wie in Abschnitt 1.3.3 dargestellt, lassen sich aus den vier grundlegenden 
Programmstrukturen Folge, Auswahl, Wiederholung und Unterprogramm 
alle nur denkbaren Programmabläufe konstruieren. 

Folgestrukturen (linear, geradeaus) 

Auswahlstrukturen (vorwärts verzweigend) 

Wiederholungsstrukturen (rückwärts verzweigend, Schleife) 

Unterprogrammstrukturen (unterteilend) 

Vier grundlegende Programmstrukturen 


In Abschnitt 3.1 wird zu jeder Programmstruktur mindestens ein in sich 
abgeschlossenes Demonstrationsbeispiel angegeben und erklärt. 


3.1.1 Lineare Programme (Folgestrukturen) 


3.1.1.1 Codierung und Ausführungen zu einem Programm 

Jedes Programm hat einen Namen. Das Programm mit dem Namen 
VERBRAU ermittelt den durchschnittlichen Benzinverbrauch für einen 
PKW mit einem Tankinhalt von 60 Litern. Wir haben es schon in Ab¬ 
schnitt 2.2.4 kennengelernt und wollen es nun näher untersuchen. 


Codierung zu VERBRAU: 
let t=60 

PRINT "Eingabe: Gefahrene km" 

INPUT k 

LET d=100*t/k 

PRINT "Ausgabe: Liter/100 km" 

PRINT d 

END 
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Zwei Ausführungen zu VERBRAU (Um die Eingaben des Benutzers her¬ 
vorzuheben, werden sie in allen Ausführungsbeispielen unterstrichen): 


Eingabe: Gefahrene km 
? 600 

Ausgabe: Liter/100 km 
10 


Eingabe: Gefahrene km 
? 5« 

Ausgabe: Liter/100 km 
11.07011070111 


Klickt man den Befehl RUN in der Menü-Leiste an, schaltet GFA-Basic 
in den Ausgabe-Modus um, und das Programm wird ausgeführt: Der 
Bildschirm wird gelöscht; dann erscheint die erste Ausgabe des 
Programms "Eingabe: Gefahrene km". Der Benutzer gibt die Zahl 600 ein, 
der Computer berechnet 10 Liter als Durchschnittsverbrauch, um dann 
den Text "Ausgabe: Liter/100 km" und die Zahl 10 auszugeben. Bei einer 
zweiten Ausführung entwickelt sich ein ähnlicher Mensch-Computer- 
Dialog, nur wird dabei von 542 km ausgegangen. 

Ist das Programmende erreicht, so meldet dies GFA-Basic mittels eines 
Warnfeldes in der Mitte des Bildschirms. Durch Anklicken des Return- 
Feldes (oder durch Betätigen der Return-Taste) kommt man zum Editor 
zurück und kann das Programm weiterbearbeiten oder erneut starten. 
Stände am Programmende statt "END" "EDIT", käme man ohne vorherige 
Abfrage wieder in den Editor. 

Das in der Programmiersprache BASIC codierte Programm VERBRAU 
umfaßt sieben Zeilen sowie vier Anweisungsarten LET, PRINT, INPUT 
und END. Das Programm wird Zeile für Zeile linear ausgeführt: 

- Weise die Zahl 60 der Variablen t (wie Tankfüllung) zu. 

- Gib am Bildschirm den zwischen " " stehenden Text aus. 

- Warte auf eine Tastatureingabe und weise diese Eingabe dann der 
Variablen k (für Kilometer) zu. 

- Rechne 10 mal t durch k aus und weise das Ergebnis dann der 
Variablen d (für Durchschnittsverbrauch) zu. 

- Gib am Bildschirm den zwischen " " stehenden Text aus. 

- Gib am Bildschirm den Wert der Variablen d aus. 

- Beende die Ausführung des Programms VERBRAU. 

Jede Programmzeile besteht aus einem Anweisungswort (z.B. INPUT) und 
Anweisungsargument (z.B. k). Die BASI C-Codierung (auch BASIC-Listing 
genannt) besteht aus einer Folge von computerverständlich in BASIC 
formulierten Anweisungen. Das einmal codierte Programm kann mehrmals 
ausgeführt werden, wobei sich die Ausführungen je nach Eingabewerten 
unterscheiden können, die Codierung aber unverändert zugrundeliegt. 
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Dies wird ermöglicht durch die Verwendung von Variablen (vgl. Ab¬ 
schnitt 1.3.4.2), hier durch die numerischen Variablen k und d. Während 
k und d ihren Inhalt (Wert) ändern, bleibt dieser bei t mit 60 Litern 
konstant. Daten können als Variablen oder Konstanten im Programm 
vorgesehen sein; hier sind beides numerische Daten bzw. Zahlen. 


Konstanten («feste Daten): 

LET t=60 

Die Konstante 60 der Variablen t 
zuweisen und unverändert belassen. 

PRINT "Ausgabe: Liter/100 km" 

Einen gleichbleibenden Text ausgeben. 

Variablen («veränderliche Daten): 

INPUT k 

Eine beliebige über Tastatur eingege¬ 
bene Zahl der Variablen k zuweisen. 

LET d*100*t/k 

Eine Berechnung durchführen und das 
Ergebnis der Variablen d zuweisen. 

PRINT d 

Den derzeitigen Wert der Variablen d 
am Bildschirm ausgeben. 


Konstanten und Variablen im Programm VERBRAU 


Betrachten wir die vier im Programm VERBRAU verwendeten Anwei¬ 
sungen: 

Die LET-Anweisung berechnet den rechts vom Zuweisungszeichen "=" 
angegebenen Ausdruck und weist dann das Ergebnis der links von "=" 
stehenden Variablen zu. Bei LET (für (zu)lassen) darf links vom Zuwei¬ 
sungszeichen immer nur ein Name stehen. "LET t=60" bedeutet "Weise die 
Zahl 60 der Variablen t zu". 

Die PRINT-Anweisung dient einerseits der Ausgabe von Text, der 
zwischen Anführungszeichen steht (in der zweiten und fünften Zeile), 
und andererseits der Ausgabe des Inhalts von Variablen (in der sechsten 
Zeile). 

Die INPUT-Anweisung dient der Tastatureingabe von Werten und deren 
Zuweisung in eine Variable wie etwa in die Variable k in der dritten 
Zeile. 

Die END-Anweisung beendet die Ausführung. 
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3.1.1.2 Anweisungsfolge Eingabe-Verarbeitung-Ausgabe 

Jedes Programm läuft in der Folge Eingabe-Verarbeitung-Ausgabe ab, 
auch als EVA-Prinzip bezeichnet (vgl. Abschnitt 1.2.2.1). Im folgenden 
Programm namens PREIS 1 zeigt sich der 3er-Schritt in der zweiten bis 
vierten Zeile. 


Codierung zu PREIS 1: 

REM ====== Programm PREIS1 

INPUT "Alter Preis";p 
LET p=p-p*15/100 
PRINT "Neuer Preis: ";p 
ENO 


Zwei Ausführungen zu PREIS 1: 


Alter Preis? 200 
Neuer Preis: 170 


Alter Preis? 4925.65 
Neuer Preis: 4186.8025 


Die REM-Anweisung (engl, remark für Bemerkung) ermöglicht das 
Einfügen von Bemerkungen, die zwar im Programm-Listing erscheinen, 
aber keinen Einfluß auf die Ausführung haben. So erscheint hier der 
Programmname PREIS1 bei den Ausführungen nicht, wohl aber bei der 
Codierung. 

Die zweite Zeile hätte man auch umständlicher codieren können: 

PRINT "Alter Preis"; 

INPUT p 

Dabei bewirkt das Semikolon hinter dem PRINT-Befehl, daß die nächste 
Bildschirmausgabe direkt nach "Alter Preis" erscheint, und nicht am 
Anfang der darunterliegenden Zeile. 

Da vor jedem INPUT ein PRINT stehen sollte - sonst weiß man ja nicht, 
was überhaupt einzugeben ist -, kann man mit der Anweisung 

INPUT "Alter Preis";p 

die Eingabeaufforderung mit der Eingabe zusammen in einer INPUT-An¬ 
weisung programmieren. 
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Die LET-Anweisung in der dritten Zeile zeigt den Unterschied zwischen 
dem Zuweisungszeichen "=" (weise von rechts nach links zu) und dem 
Gleichheitszeichen "=" in der Mathematik (links ist gleich rechts). 


LET p « p - p*15/100 

1 -1. Wert des Rechenausdrucks ermitteln: 

200*15/100 ergibt 30 (Annahme: 200 in p); 
200-30 ergibt 170. 

I-2. Wertzuweisung: 

Weise 170 p zu (alter Inhalt von p wird zerstört). 

Wertzuweisung durch LET an einem Beispiel 


Entsprechend bewirken die Anweisungen 


LET z=z+1 

eine Werterhöhung des derzeitigen Inhalts von z um 1 und 

LET x1=x1/2 

eine Halbierung von xl. 

Die vierte Zeile zeigt, daß man mit der PRINT-Anweisung auch mehrere 
Texte und Variablen nebeneinander ohne Leerzeichen ausgeben lassen 
kann, wenn man sie durch ein Semikolon (";") voneinander trennt. 
(Anmerkung: im Computerjargon wird ein Leerzeichen auch "Blank" oder 
"Space" genannt). Auf die Anführungszeichen kommt es an: PRINT "p" 
würde den Buchstaben p am Bildschirm zeigen, PRINT p den Wert der 
Variablen p. 


3.1.1.3 Übersichtliche Programmgliederung 

Wie in Abschnitt 1.3.4.3 erläutert, gliedert man ein Programm unabhängig 
von der jeweiligen Programmiersprache übersichtlich in die drei Teile 
Name, Vereinbarungsteil und Anweisungsteil. 

In BASIC ist diese explizite Dreiteilung nicht zwingend erforderlich. Ins¬ 
besondere bei umfangreichen, langen Programmen sollte man die 
Dreiteilung aber unbedingt vorsehen: Sie läßt sich in BASIC durch REM- 
Anweisungen bewerkstelligen. 
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Das folgende Programm PREIS2 sieht eine Dreiteilung vor, wobei die 
Teile durch Leerzeilen und REM getrennt werden (das Hochkomma ’ 
kann anstelle von REM geschrieben werden). Im Vereinbarungsteil wird 
s% als Integer-Konstante vereinbart (integer=ganzzahlig), indem hinter 
dem Variablennamen als Typzeichen ein Prozentzeichen ("%") angefügt 
wird, und p als Real-Variable (real=kommazahlig). Steht hinter dem 
Variablennamen kein zusätzliches Zeichen oder das Typzeichen "#", geht 
GFA-Basic davon aus, daß es sich um eine Real-Variable handelt. 

Wie in Abschnitt 2.4.1.2 schon erwähnt, gibt es in GFA-Basic 3.0 drei 
verschiedene Ganzzahl-Variablentypen, die sich voneinander durch ihren 
Speicherplatzbedarf und den mit ihnen darstellbaren Zahlenbereich 
unterscheiden. Die oben angesprochene Integer-Variable benötigt an 
Speicher vier Bytes, mit ihr lassen sich Zahlen von -2147483648 bis 
2147483647 darstellen. Daneben gibt es noch die durch das Typzeichen & 
gekennzeichnete Word-Variable (Speicherbedarf 2 Bytes, Zahlenbereich 
von -32768 bis 32767,) und die Byte-Variable (Typzeichen |, Speicher¬ 
bedarf 1 Byte, Zahlenbereich von -128 bis 127). Da die Programme in 
diesem Buch nicht zeit- oder speicherkritisch sind, wird für Ganzzahlen 
grundsätzlich die normale vier-Byte Integer-Variable verwendet. 

Leerzeilen: 

Zwischen der ersten und zweiten sowie der fünften und sechsten Zeile 
stehen Leerzeilen, um die Übersichtlichkeit des Programm-Listings zu 
erhöhen. Diese werden durch Eingabe eines einzelnen Kommentarzeichens 
erzeugt. 


Codierung zu Programm PREIS2: 


REM ====== Programm PREIS2 

I 

REM ====== Vereinbarungsteil 


1 s%: Preissenkung in Prozent als Konstante (Datentyp INTEGER (%)) 
LET s%=15 

1 p: Preis als variable Größe (Datentyp KOMMAZAHL) 

i 

REM ====== Anweisungsteil 

PRINT "Preissenkung um 15% ermitteln." 

INPUT "Alter Preis";p 
LET p=p-p*s%/100 
PRINT "Neuer Preis: ";p 
PRINT "Ende des Programms." 

END 
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Ausführungen zu Programm PREIS2: 


Preissenkung um 15% ermitteln. 
Alter Preis? 200 
Neuer Preis: 170 
Ende des Programms. 


Preissenkung um 15% ermitteln. 
Alter Preis? 4925.65 
Neuer Preis: 4186.8025 
Ende des Programms. 


Die Programme PREIS1 und PREIS2 lösen beide dasselbe Problem. Die 
Codierungen unterscheiden sich wesentlich, die Ausführungen hingegen 
kaum. 


3.1.1.4 Arbeitsschritte zur Programmentwicklung 

Je umfangreicher ein Programm, umso sinnvoller erscheint ein geplantes 
und schrittweises Vorgehen zur Programmentwicklung. In Abschnitt 1.3.7 
nannten wir allgemein die Arbeitsschritte Problemstellung, Programm¬ 
entwurf, Programmierung, Dokumentation und Anwendung. "Allgemein" 
heißt, daß diese Schrittfolge auch zur Entwicklung komplexer Programm- 
Pakete geeignet ist. Für die in diesem Buch angeführten kleinen 
Demonstrationsprogramme genügt eine vereinfachte Arbeitsschrittfolge: 

1. Problemstellung 

2. Problemanalyse 

3. Darstellung des Algorithmus 

4. Codierung in BASIC 

5. Anwendung/Ausführung 

6. Dokumentation 

Am Beispiel des - wiederum linearen - Programmes KALKULAT werden 
wir einige der Arbeitsschritte darstellen. 

Problemstellung zu Programm KALKULAT: 

Es ist ein Dialogprogramm zu erstellen, das ausgehend vom Einstandspreis 
den Nettoverkaufspreis und den Zuschlagsatz kalkuliert. 
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Variablenliste als Teil der Problemanalyse zu Programm KALKULAT: 

In einer Variablenliste lassen sich die im Programm verwendeten Vari¬ 
ablen wie in der Abbildung dargestellt zusammenfassen. 


Eingabedaten (von Tastatur): 

einst Einstandspreis in DM 

pl Gemeinkostenzuschlag in % (von Hundert) 

p2 Gewinnzuschlag in % (von Hundert) 

p3 Skontosatz in % (von Hundert) 

p4 Rabattsatz in % (von Hundert) 

Verarbeitung (Formeln): 


gemein 

selbst 

spanne 

bar 

sko 

ziel 

rab 

net 

kalk 


Gemeinkosten in DM (gemein=einst*pl/100) 
Selbstkosten in DM (selbst=einst+gemein) 
Gewinnspanne in DM (SPANNE=selbst*p2/100) 
Barverkaufspreis in DM (bar=selbst+spanne) 
Skontobetrag in DM (sko=bar*p3/(100-p3)) 
Zielverkaufspreis in DM (ziel=bar+sko) 
Rabattbetrag in DM (rab=ziel*p4/(100-p4)) 
Nettoverkaufspreis in DM (net=ziel+rab) 
Kalkulationszuschlag 
(kalk=(net-einst)* 100/einst) 


Ausgabedaten (Resultate): 


net Nettoverkaufspreis in DM 

kalk Kalkulationszuschlag in % 

Variablenliste zum Programm KALKULAT 


Der folgende Schrittplan zeigt eine grobe Darstellung des Lösungsablaufs 
vom Programm KALKULAT: 

Schritt 1: Vier Zuschlagssätze pl-p4 eintippen 
Schritt 2: Einstandspreis einst eintippen 
Schritt 3: net und kalk berechnen 
Schritt 4: net und kalk als Resultat ausgeben 
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Codierung zu Programm KALKULAT: 

REM ====== Programm KALKULAT 

PRINT "Warenkalkulation durchführen:" 

PRINT "Vom Einstandspreis zum Nettoverkaufspreis." 

PRINT 

i 

REM ====== Vereinbarungsteil 

• p1,p2,p3,p4: Zuschlagssätze in Prozent 
1 einst, gemein, selbst, gewinn, bar, sko, ziel, 

1 rab, net: Einzelbeträge in DM 

1 kalk: Kalkulationszuschlag in Prozent 

i 

REM ====== Anweisungsteil 

i *** EINGABETEIL (TASTATUR) ************************************** 

INPUT "Gemeinkosten in % von Hundert ";p1 

INPUT "Gewinnzuschlag in % von Hundert";p2 

INPUT "Skonto in % im Hundert ";p3 

INPUT "Rabatt in % im Hundert ";p4 

INPUT "Einstandspreis in DM ";einst 

' *** VERARBEITUNGSTEIL MIT WERTZUWEISUNGEN *********************** 

LET gernein=einst*p1/100 

LET selbst=einst+gemein 

LET spanne=selbst*p2/100 

LET bar=selbst+spanne 

LET sko=bar*p3/(1Q0-p3) 

LET ziel=bar+sko 

LET rab=ziel*p4/(10Q-p4) 

LET net=ziel+rab 

LET kalk=(net-einst)*100/einst 

i *** AUSGABETEIL (BILDSCHIRMAUSGABE) ***************************** 
PRINT 

PRINT "Vorwärtskalkulation durchgeführt:" 

PRINT "Nettoverkaufspreis in DM: ";net 
PRINT "Kalkulationszuschlag in %: ";kalk 
END 


Anwendung bzw. Ausführung zu Programm KALKULAT: 


Warenkalkulation durchführen: 

Vom Einstandspreis zum Nettoverkaufspreis. 

Gemeinkosten in X von Hundert ? 23 
Gewinnzuschlag in X von Hundert? 14 
Skonto in X im Hundert ? 2 

Rabatt in X im Hundert ? 25 

Einstandspreis in DM ? 100 

Vorwärtskalkulation durchgeführt: 
Nettoverkaufspreis in DM: 190.7755102041 
Kalkulationszuschlag in X: 90.77551020408 
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Anmerkung: Da die Programmendemeldung die Ausgabe des Programms 
zum Teil verdeckt, muß man nach Beendigung der Programmausführung 
zum Editor zurückkehren und von dort aus den Ausgabebildschirm 
anzeigen lassen (z.B. durch FLIP). Später werden wir sehen, wie man 
dieses Problem vom Programm aus lösen kann. 

Ihre Aufgabe: Erweitern Sie das Programm KALKULAT so, daß nicht 
nur das Ergebnis, sondern auch alle Zwischenschritte ausgegeben werden 
(PRINTs). 


3.1.2 Programme mit Verzweigungen (Auswahlstrukturen) 

Programmabläufe, die nach vorwärts verzweigen, werden als Auswahl¬ 
strukturen bezeichnet. Je nach der Anzahl der ausgewählten Fälle spricht 
man von der Zweiseitigen, Einseitigen oder Mehrseitigen Auswahl 
(-Struktur). Diese in Abschnitt 1.3.3.2 allgemein beschriebenen Abläufe 
wollen wir jetzt in BASIC beispielhaft an kleinen Programmen darstellen. 


3.1.2.1 Zweiseitige Auswahl 

Dem Programm namens SKONTOZ liegt folgende Problemstellung zu¬ 
grunde: 

"Erwarte den Rechnungsbetrag r und die Tage t als Tastatureingabe und 
ermittle den Skontobetrag s. Dabei gelten folgende Zahlungsbedingungen: 
Bei Zahlung nach acht Tagen (t>8) 1.5%, sonst (t<=8) jedoch 4% Skonto". 

Zum Programm SKONTOZ sind die Codierung, der Programmablaufplan 
(PAP), das Struktogramm und die zwei Ausführungen wiedergegeben. 
Diese vier Darstellungsformen desselben Programms veranschaulichen die 
Zweiseitige Auswahl als Programmstruktur: 


einerseits 1.5% (Bedingung t>8 erfüllt, JA-Zweig mit THEN); 
andererseits 4% (Bedingung t>8 nicht erfüllt, NEIN-Zweig mit ELSE). 
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Codierung zu SKONTOZ: 

REM ====== Programm SKONTOZ 

PRINT "Skonto als Zweiseitige Auswahl." 
INPUT "Rechnungsbetrag in DM";r 
INPUT "Tage nach Erhalt ";t 
IF t>8 THEN 
LET p=1.5 
ELSE 
LET p=4 
ENDIF 

LET s=r*p/100 
LET r=r-s 

PRINT s;" DM Skonto und ";r;" DM Zahlung.» 
PRINT "Ende." 

END 


Zwei Ausführungen zu SKONTOZ: PAP zu SKONTOZ: 


Skonto als Zweiseitige Auswahl 
Rechnungsbetrag in DM? 200 
Tage nach Erhalt ? 3 
8 DM Skonto und 192 DM Zahlung 
Ende. 


Skonto als Zweiseitige Auswahl. 
Rechnungsbetrag in DM? 200 
Tage nach Erhalt ? 14 
3 DM Skonto und 197 DM Zahlung. 
Ende. 
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Eingabe des Rechnungsbetrags r und der Tage t 



weise 1.5% p zu weise 4% p zu 

Skontobetrag als p Prozent aus r: s=r*p/100 


Rechnungsbetrag um Skonto vermindern: r=r-s 

Ausgabe des Ergebnisses: s und r 

Ende 


Zur bedingten Verzweigung wird dabei die Anweisung IF..THEN..ELSE.. 
ENDIF verwendet. 


if t > 8 then Verzweigungsbedingung t>8 

... JA-Zweig mit THEN, wenn t>8 wahr. 

ELSE 

... - NEIN-Zweig mit ELSE, wenn t>8 unwahr. 

ENDIF 

Anweisung IF..THEN..ELSE..ENDIF für die Zweiseitige Auswahl 


Wenn (IF) t größer als 8 ist (t>8), dann (THEN) weise p den Wert 1.5 zu; 
wenn nicht (ELSE), also wenn t kleiner oder gleich 8 ist (t<=8), dann 
weise p den Wert 4 zu. 

Nach dieser Auswahl wird gemeinsam mit dem Befehl nach dem ENDIF 
fortgefahren. 

In unserem Beispiel wurde im Falle t>8 bzw. t<=8 jeweils nur ein Befehl 
ausgeführt. Ebensogut könnten an diesen Stellen im Programm, d.h. 
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zwischen THEN und ELSE bzw. ELSE und ENDIF auch mehrere Befehle 
stehen (und natürlich auch andere als LET). 

Diese Befehlsblöcke werden von GFA-Basic aus Gründen der Übersicht¬ 
lichkeit automatisch eingerückt. So erkennt man gleich, daß nur einer der 
beiden Blöcke während des Programmlaufs auch wirklich abgearbeitet 
wird. 


3.1.2.2 Einseitige Auswahl als Sonderfall 

Die Einseitige Auswahl(-struktur) 

"Wenn ..., dann tue dies, sonst aber tue nichts" 

kann als Sonderfall der Zweiseitigen Auswahl(-struktur) 

"Wenn ..., dann tue dies, sonst aber tue das" 

aufgefaßt werden. Zur Demonstration der Einseitigen Auswahl betrachten 
wir das Programm SKONTOE: Die Ausführungen stimmen mit denen des 
Programms SKONTOZ überein, die Codierung hingegen zeigt eine 
Einseitige Auswahlstruktur. Dies wurde durch folgenden Trick erreicht: p 
wird auf 4% gesetzt und nur im Falle von t>8 um 2.5 auf 1.5% ver¬ 
mindert (LET p=p-2.5). 


Codierung zu Programm SKONTOE: 

REM ====== Programm SKONTOE 

PRINT "Skonto als Einseitige Auswahl." 
INPUT "Rechnungsbetrag in DM";r 
INPUT "Tage nach Erhalt ";t 
LET p=4 
IF t>8 THEN 
LET p=p-2.5 
ENDIF 

LET s=r*p/100 
LET r=r-s 

PRINT s;" DM Skonto und ";r;" DM Zahlung." 
PRINT "Ende." 

END 
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Ausführungen zu Programm SKONTOE: 


PAP zu SKONTOE: 


Skonto als Einseitige Auswahl. 
Rechnungsbetrag in DH? 200 
Tage nach Erhalt ? 3 
8 DM Skonto und 192 DM Zahlung. 
Ende. 


Skonto als Einseitige Auswahl. 
Rechnungsbetrag in DM? 200 
Tage nach Erhalt ? M 
3 DM Skonto und 197 DM Zahlung. 
Ende. 



Struktogramm zu Programm SKONTOE: 



Einseitige 

Auswahlstruktur 


./. für "tue nichts" 
bzw. Leeranweisung 


Anmerkung: In GFA-Basic ist bei einer IF-Anweisung das "THEN" nicht 
unbedingt erforderlich. 
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3.1.2.3 Mehrseitige Auswahl als Sonderfall 

Bei der Mehrseitigen Auswahl werden mehrere Fälle unterschieden: in 
dem Programm DREIFALL sind es die drei Fälle 'gleich’, ’vor’ und 
’nach’. Der PAP und das Struktogramm zeigen die geschachtelte Anord¬ 
nung von zwei Zweiseitigen Auswahlstrukturen. 

Wie die Einseitige Auswahl kann also auch die Mehrseitige Auswahl als 
Sonderfall der Zweiseitigen Auswahl aufgefaßt werden. 


Struktogramm zu Programm DREIFALL: 


Mehrseitige Auswahl 
als Schachtelung 


Zweiseitige Auswahl 
wl$=w2$ "außen" 


Zweiseitige Auswahl 
wl$=w2$ "innen" 
eingeschachtelt 
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Codierung zu Programm DREIFALL (IF-Anweisungen geschachtelt): 

REM ====== Programm DREIFALL 

PRINT "Textvergleich: zwei Worte und drei Fälle." 

INPUT "Zwei Worte";w1$ # w2S 
IF w1$=w2$ THEN 
PRINT w1$;" ist gleich ";w2$ 

ELSE 

IF w1$<w2$ THEN 
PRINT w1$;" kommt vor ";w2$ 

ELSE 

PRINT w1$;" kommt nach ";w2S 
ENDIF 
ENDIF 

PRINT "Ende." 

END 


Drei Ausführungen zu DREIFALL: PAP zu DREIFALL: 


Textvergleich: zwei Worte und drei Fälle. 
Zwei Worte? PREIS.DM-BETRAG 
PREIS kommt nach DM-BETRAG 
Ende. 


Textvergleich: zwei Worte und drei Fälle. 
Zwei Worte? 12%.HUNDERT 
12% kommt vor HUNDERT 
Ende. 


Textvergleich: zwei Worte und drei Fälle. 
Zwei Worte? ATARI.ATARI 
ATARI ist gleich ATARI 
Ende. 



In den IF-Anweisungen dieses Programms findet kein numerischer Ver¬ 
gleich statt, sondern ein Textvergleich'. Die Verzweigungsbedingung 
wl$=w2$ (ist der Wert von Variable wl$ gleich dem von Variable w2$) 
vergleicht die derzeitigen Werte zweier Textvariablen. Textvariablen en¬ 
den mit einem Dollarzeichen $ (z.B. a$, b$, atari$). 

Wie kann der Computer feststellen, ob mit dem Textvergleich wl$<w2$ 
nun der Text "PREIS” kleiner ist (im Sinne von alphabetisch weiter vorne 
stehend) als der Text "DM-BETRAG" ? 
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Wie Ziffern werden auch Buchstaben und Sonderzeichen intern im ASCII 
dargestellt (Abschnitt 1.2.3.1). Sie erhalten so je eine Codenummer als 
Ordnungsnummer. Mit den ASCII-Codenummern 80 für P und 68 für D 
wird wl$<w2$ bzw. "PREISVDM-BETRAG" bzw. 80<68 vom Computer 
als "unwahr" erkannt; der Textvergleich führt somit nicht zur Programm¬ 
verzweigung. 


Numerischer Vergleich: 

IF t>8 THEN.. 

IF 22.5<>r5 THEN.. 

IF xX=yX THEN.. 

Vergleich von Zahlen 
bzw. Ziffern 


Textvergleich: 

IF e$*"j" THEN.. 

IF "H">buch$ THEN.. 

IF a1S<bS THEN.. 

Vergleich von Texten, 
Zeichen bzw. Strings. 


IF-Anweisung mit numerischem Vergleich und Textvergleich 


Beim Textvergleich kann wie beim numerischen Vergleich mit den Ver- 
gleichs-Operatoren =, <> (ungleich), <, >, >= (größer oder gleich) und <= 
gearbeitet werden. 

Anmerkung: Andere Bezeichnungen für Text sind String, Zeichenkette 
oder Zeichendaten. 


3.1.2.4 Fallabfrage 

Oft ist es erforderlich, eine Variable mit vielen verschiedenen Werten zu 
vergleichen, wobei die eventuell bei jedem Vergleich auszuführenden 
Aktionen von Wert zu Wert anders aussehen können. Dieses Problem 
könnte man lösen, indem man viele IF-Anweisungen ineinander 
verschachtelt und in jeden ELSE-Teil wieder eine neue IF-Struktur 
einbaut. Ein solche Vorgehensweise würde aber schnell die 
Übersichtlichkeit des Programms zerstören. Zwar wäre es möglich, die in 
diesem Fall eher störende Einrückung jedes weiteren IF-Befehls durch 
Verwendung der ELSEIF-Anweisung zu unterbinden (dieser Befehl ist 
absolut äquivalent zu einem ELSE mit nachfolgenden IF, nur verhindert 
er wie gesagt die Einrückung; Außerdem braucht man nur ein ENDIF, 
um die Kette abzuschließen), aber GFA-Basic 3.0 stellt eine elegantere 
Alternative zur Verfügung: Die SELECT-CASE-Befehlsfolge. 
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Im Programm MWST wird je nach Inhalt von wahl% eine von drei 
Wertzuweisungen für mwst angesprungen. Ist wahl% gleich 1, so wird die 
Anweisung nach "CASE 1" ausgeführt, also "LET mwst=l". Für wahl% 
gleich 2 oder 3 entsprechend die Anweisung nach "CASE 2" bzw. 
"CASE 3". Wenn keiner dieser CASE-Anweisungen zutrifft (also wenn 
wahl% kleiner als 1 oder größer als 3 ist), wird zu den Anweisungen nach 
"DEFAULT" gesprungen, mwst auf Null gesetzt und eine Fehlermeldung 
ausgegeben. Am Ende des Programms wird dann noch - falls keine 
falsche Eingabe auftrat (das ist dann der Fall, wenn mwst ungleich Null 
ist) - brutto berechnet und ausgedruckt. 


Struktogramm zu Programm MWST: 


Eingabe von netto und wahl% 

wahl%=7'~'~^ 

'^w^ahl%=2^^~' 

wahi%=T^^'' 

^^/^sonst^ 

mwst=l 

mwst=l .07 

mwst=1.14 

mwst=0 

Berechnung und Ausgabe von brutto 

Fehlermeldung 

Programmende 
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Allgemeiner Aufbau der SELECT-CASE-Befehlsfolge: 


SELECT Ausdruck 


CASE Konstante 
Befehlsblockl 


CASE kl,k2,..• 
Befehlsblock2 


CASE Start TO Ende 
Befehlsblock3 


DEFAULT 

Befehlsblock4 


ENDSELECT 


Die SELECT-Anweisung legt Ausdruck als 
Verzweigungsbedingung fest. Auf diesen 
Ausdruck nehmen die folgenden CASE- 
Anweisungen Bezug. 

Hat Ausdruck den Wert Konstante, wird 
der Befehlsblockl ausgeführt und danach 
zur Anweisung hinter "ENDSELECT" 
gesprungen. 

Hat Ausdruck den Wert einer der aufge¬ 
listeten Konstanten, wird Befehlsblock2 
ausgeführt und dann hinter "ENDSELECT" 
gesprungen. 

Liegt Ausdruck zwischen Start und Ende 
einschließlich, wird Befehlsblock3 ausge¬ 
führt und dann hinter "ENDSELECT" 
gesprungen. 

Jetzt können weitere CASE-Anweisungen 
der oben beschriebenen Typen folgen. 
Trafen die in den CASE-Anweisungen 
angegebenen Werte alle nicht für Ausdruck 
zu, wird Befehlsblock4 ausgeführt. Die 
DEFAULT-Anweisung ist optional, also 
nicht unbedingt erforderlich. 

ENDSELECT schließt die Fallabfrage ab. 


Anweisung SELECT und CASE für die Fallabfrage 


Hinter CASE können nicht nur konstante Zahlenwerte angegeben werden, 
sondern auch einzelne Ganzzahl-Variablen und Texte bis zu einer Länge 
von vier Zeichen. 

Im Rahmen dieser Befehlsstruktur findet noch eine weitere Anweisung 
Verwendung: CONT. CONT muß immer vor einem CASE- oder 
DEFAULT-Befehl stehen und hat bei seiner Ausführung die Wirkung, 
daß der Befehlsblock der nächsten CASE-Anweisung ausgeführt wird, 
ohne daß die angegebene Bedingung zutreffen muß. Danach wird kein 
weiteres CASE mehr geprüft, sondern direkt zum Befehl nach dem 
ENDSELECT gesprungen. 
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Codierung zu Programm MWST: 

REM ====== Programm MWST 

PRINT "Bruttobetrag incl. Mehrwertsteuer." 

i 

REM ====== Vereinbarungstell 

' netto,mwst,brutto: DM-Beträge 
' wahl%: Hilfsvariable für Auswahl 

i 

REM ====== Anweisungsteil 

INPUT "Welcher Nettobetrag";netto 
PRINT "Ohne MWST 1" 

PRINT "Halbe MWST 2" 

PRINT "Volle MWST 3» 

INPUT "Wahl 1,2 oder 3";wahl% 

SELECT wahl% 

CASE 1 

LET mwst=1 
CASE 2 

LET mwst=1.07 
CASE 3 

LET mwst=1.14 
DEFAULT 
LET mwst=0 

PRINT "Fehler! Eingabe nur von 1 bis 3!" 
ENDSELECT 
IF mwst<>0 THEN 
LET brutto=netto*mwst 
PRINT "Bruttobetrag: ";brutto;" DM" 

ENDIF 

END 


Zwei Ausführungen zu Programm MWST: 


Bruttobetrag incl. Mehrwertsteuer. 

Welcher Nettobetrag? 1500 

Ohne MWST 1 

Halbe MWST 2 

Volle MWST 3 

Wahl 1,2 oder 3? 2 

Bruttobetrag: 1605 DM 


Bruttobetrag incl. Mehrwertsteuer. 

Welcher Nettobetrag? 1500 

Ohne MWST 1 

Halbe MWST 2 

Volle MWST 3 

Wahl 1,2 oder 3? 0 

Fehler! Eingabe nur von 1 bis 3! 
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3.1.2.5 Boolesche Variablen und logische Operatoren 

Bis jetzt bestanden die Verzweigungsbedingungen in den IF-Anweisungen 
aus einfachen Vergleichen. Oft ist es jedoch erforderlich, daß die 
Ergebnisse mehrerer solcher Vergleiche bei der Verzweigung berück¬ 
sichtigt werden. Betrachten wir hierzu das Programm LOGIK 1. 


Codierung zu Programm LOGIK 1 

REM ====== Programm L0GIK1 

INPUT "Drei Zahlen";a f b f c 
IF a>b AND a>c THEN 

PRINT "Die 1. Zahl ist größer als die beiden anderen." 

ENDIF 

IF a>b XOR a>c THEN 

PRINT "Die I.Zahl ist größer als genau eine der beiden anderen." 
ENDIF 

IF a=b OR b=c OR a=c THEN 
PRINT "Mindestens zwei Zahlen sind gleich." 

ENDIF 

IF NOT b=c THEN 

PRINT "Die letzten beiden Zahlen sind ungleich." 

ENDIF 

END 


Zwei Ausführungen zu LOGIK 1: 


Drei Zahlen? 3,2.2 

Die I.Zahl ist größer als die beiden anderen. 
Mindestens zwei Zahlen sind gleich. 


Drei Zahlen? 4.1,5 

Die I.Zahl ist größer als genau eine der beiden anderen. 
Die letzten beiden Zahlen sind ungleich. 


In diesem Beispiel werden Gleichungen bzw. Ungleichungen, die je nach 
Inhalt der Variablen den Wert "wahr" (=TRUE) oder "falsch" (=FALSE) 
liefern, durch logische Operatoren miteinander verknüpft. Die Wirkungs¬ 
weise dieser Operatoren läßt sich gut in sogenannten Wahrheitstafeln 
darstellen: 
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a 

b 

a AND b 

AND liefert nur dann wahr, wenn beide 
Operanden wahr sind. 

w 

W 

w 

Im obigen Beispiel heißt das: Die erste PRINT- 

W 

f 

f 

Anweisung wird nur ausgeführt, wenn sowohl 

f 

w 

f 

a größer als b und a größer als c ist (wenn also 

f 

f 

f 

der Gesamtausdruck wahr ist). 

a 

b 

a OR b 

OR liefert wahr, wenn mindestens ein Operand 
wahr ist. 

w 

w 

w 


w 

f 

w 


f 

w 

w 


f 

f 

f 


a 

NOT a 

:- 

NOT kehrt den Wahrheitswert seines Operan¬ 
den um. (So könnte man für "aob" auch 

w 

f 


"NOT a=b" schreiben.) 

f 

w 


a 

b 

a XOR b 

XOR (exklusives Oder) liefert wahr, wenn 
genau einer seiner Operanden wahr ist. 

w 

W 

f 


w 

f 

W 


f 

w 

w 


f 

f 

f 


a 

b 

a IMP b 

IMP (Implikation=Folgerung) liefert nur dann 
falsch, wenn der 1. Operand wahr und der 2. 

w 

W 

w 

falsch ist. 

w 

f 

f 


f 

w 

w 


f 

f 

w 


a 

b 

a EQV b 

EQV (Äquivalenz) liefert genau dann wahr, 
wenn der Wahrheitswert seiner beiden Operan¬ 

w 

W 

W 

den übereinstimmt, "a EQV b" läßt sich auch 

w 

f 

f 

schreiben als: 

f 

w 

f 

- (a IMP b) AND (b IMP a) 

f 

f 

w 

- NOT (a XOR b) 


Logisch Operatoren in GFA-Basic 
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Computerintern wird "wahr" als -1 und "falsch" als 0 gespeichert. So ist es 
möglich, einer Variablen ein Wahrheitswert zuzuweisen. Solche Variablen 
nennt man zu Ehren von George Boole, der um 1850 die Logik erforscht 
hat, Bool’sche Variablen. Sie können nur den Wert TRUE (= -1) oder 
FALSE (=0) annehmen und werden mit nachgestelltem Ausrufezeichen 
gekennzeichnet. Mit dieser Erkenntnis kann LOGIK 1 zu LOGIK2 umge¬ 
schrieben werden: 


Codierung zu Programm LOGIK2 

REM ====== Programm LOGIK2 

INPUT "Drei Zahlen";a,b,c 

LET bl!=a>b 
LET b2!=a>c 

LET b3!=(a=b) OR (a=c) 

LET b4!=b=c 
LET b5!=N0T b4! 

IF bl! AND b2! THEN 

PRINT "Die I.Zahl ist größer als die beiden anderen." 

ENDIF 

IF bl! XOR b2! THEN 

PRINT "Die I.Zahl ist größer als genau eine der beiden anderen." 
ENDIF 

IF b3! OR b4! THEN 

PRINT "Mindestens zwei Zahlen sind gleich." 

ENDIF 

IF b5! THEN 

PRINT "Die letzten beiden Zahlen sind ungleich." 

ENDIF 

END 


Man beachte, daß das Gleichheitszeichen hier in doppelter Form auftritt: 
In der Befehlszeile "LET bl!=a=b" ist das erste Gleichheitszeichen ein 
Zuweisungszeichen, das zweite ein Vergleichsoperator. Der Variablen bl! 
wird das Ergebnis des Vergleichs a = b zugewiesen, d.h., entweder -1 
oder 0. 

In GFA-Basic existieren für das Arbeiten mit Bool’schen Variablen zwei 
besondere Konstanten: TRUE und FALSE (TRUE ist gleich -1, FALSE 
ist gleich 0). Sie dienen der leichteren Lesbarkeit von Programmen und 
können dann eingesetzt werden, wenn Bool’schen Variablen ein fester 
Wert zugewiesen werden soll. 
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Bool’sche Variablen mit 


Zustand wahr bzw. -1 

LET t!=TRUE 
LET bl 1=4=4 
LET c!=4<888 
LET al«"DH“<"FF" 


Zustand falsch bzw. 0 

LET f!=FALSE 
LET bl 1=4=6 
LET x!=3<>3 
LET p!=' , cm"*"kg" 


Einige Beispiele für Bool’sche Variablen 


Eine weitere Anwendung von logischen Operatoren soll hier noch kurz 
erwähnt werden: 

Es nicht nur möglich, Bool’sche Ausdrücke mit diesen Operatoren zu 
verknüpfen, sondern auch ganz normale Zahlen. Das Ergebnis ist dann die 
Zahl, die man erhält, wenn man jede Stelle der Operanden in Dualzahl- 
Darstellung gemäß der entsprechenden Wahrheitstafel verknüpft. So liefert 
beispielsweise 10 OR 6 den Wert 14, da 10 die Dualdarstellung 1010 und 
6 die Dualdarstellung 0110 hat. Wendet man den OR-Operator bitweise 
für jede Stelle an, erhält man 1110, was der Zahl 14 entspricht. 

Diese Verwendungsmöglichkeit der logischen Operatoren wird im 
Normalfall nur selten gebraucht. Ihr Anwendungsbereich ist hauptsächlich 
der Bereich der maschinennahen Programmierung. 


3.1.3 Programme mit Schleifen (Wiederholungsstrukturen) 

Programme mit Schleifen enthalten Wiederholungsstrukturen, die nach der 
allgemeinen Darstellung in Abschnitt 1.3.3.3 jetzt in GFA-Basic an 
Programmbeispielen veranschaulicht werden sollen. 


3.1.3.1 Abweisende Schleife 

Das Programm KAPITAL1 druckt für das Kapital k und den Zinssatz p 
das verzinste Kapital zum Ende des 1., 2., 3.,... Jahres und endet, sobald 
sich das Anfangskapital verdoppelt hat. Wie jede Programmschleife be¬ 
steht auch die Schleife von KAPITAL1 aus zwei Teilen: aus einem Vor¬ 
bereitungsteil (einmal durchlaufen: Zeilen vor WHILE) und aus einem 
Wiederholungsteil (mehrmals durchlaufen: eingerückte Zeilen zwischen 
WHILE und WEND). Im Ausführungsbeispiel wird dieser Wiederholungs¬ 
teil 9mal durchlaufen. 
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Die Schleife in Programm KAPITAL 1 heißt abweisend , da die Schlei¬ 
fenabfrage "WHILE k<ke" am Anfang des Wiederholungsteils steht und 
somit eine versuchte Wiederholung abweisen kann. D.h., wenn die 
Schleifenbedingung bei Eintritt in die Schleife bereits falsch ist, wird die 
Schleife überhaupt nicht durchlaufen. 

Andere Bezeichnungen für diesen Schleifentyp sind: WHILE-DO-Schleife, 
Solange-tue-Schleife, Schleife mit vorheriger Abfrage. 

Zur Steuerung der abweisenden Schleife stellt GFA-Basic die Anweisung 
WHILE..WEND bereit. 


uhiie... Schleifenbeginn mit Schleifenabfrage 

... ...Wiederholungsteil der Schleife 

wend Schleifenende 

Anweisung WHILE..WEND für die abweisende Schleife 


Codierung zu KAPITAL 1: 

REM ====== Programm KAPITAL1 

PRINT "Kapitalien bis zur Verdoppelung." 

i 

REM ====== Vereinbarungsteil 

1 k: Kapital in DM 
1 ke: Endkapital in DM 
1 p: Zinssatz in Prozent 

i 

REM ====== Anweisungsteil 

INPUT "Eingesetztes Kapital";k 
INPUT "Jahreszinssatz ";p 

LET ke=2*k 

WHILE k<ke !Schleifenbeginn 

LET k=k+k*p/100 
PRINT » ";k 

WEND !Schleifenende 

PRINT "Ende nach Verdoppelung." 

END 

Im Listing erkennt man Kommentare hinter Programmbefehlen. Diese 
werden durch ein vorangestelltes Ausrufezeichen gekennzeichnet, im 
Gegensatz zum Hochkomma, das immer eine ganze Kommentarzeile 
einleitet. 
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Zwei Ausführungen zu Programm KAPITAL1: PAP zu KAPITAL1: 


Kapitalien bis zur Verdoppelung. 
Eingesetztes Kapital? 50000 
Jahreszinssatz ? 9 
54500 
59405 
64751.45 
70579.0805 
76931.197745 
83855.00554205 
91401.95604183 
99628.13208451 
108594.6639721 
Ende nach Verdoppelung. 



Kapitalien bis zur Verdoppelung. 
Eingesetztes Kapital? 100000 
Jahreszinssatz ? 14 
114000 
129960 
148154.4 
168896.016 
192541.45824 
219497.2623936 
Ende nach Verdoppelung. 


Struktogramm zu Programm KAPITAL1: 


Anfangskapital k eintippen 
Zinssatz p (in %) eintippen 


Endkapital ke als 2*k festlegen 


Solange k<ke ist, wiederhole 


Verzinstes Kapital k aus: 
k = k + (k*p/ 100) 


Wert von k ausgeben 


Programmende mitteilen 


Vorbereitungsteil der 
Schleife: 

einmal durchlaufen 


Wiederholungsteil der 
Schleife: 

mehrmals durchlaufen 
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3.1.3.2 Nicht-abweisende Schleife 

Die Ausführungen der Programme KAPITAL2 und KAPITAL 1 stimmen 
überein, nicht aber ihre Codierungen: Programm KAPITAL2 hat eine 
nicht-abweisende Schleife, da bei der Codierung die Schleifenabfrage am 
Ende des Wiederholungsteils beim UNTIL-Befehl steht. Diese REPEAT- 
UNTIL Schleife wird also mindestens einmal durchlaufen. 

Andere Bezeichnungen für die nicht-abweisende Schleife sind: 
Wiederhole-bis-Schleife und Schleife mit nachheriger Abfrage. 


Struktogramm zu Programm KAPITAL2: 


Anfangswerte k, p und ke 



k = k + (k*p / 100) 



k ausgeben 


wiederhole, bis k>=ke ist 


Programmende 



Vorbereitungsteil der 
Schleife 


Wiederholungsteil 
der Schleife 


Codierung zu Programm KAPITAL2: 

REM ====== Programm KAPITAL2 

PRINT "Kapitalien bis zur Verdoppelung." 

i 

REM ====== Vereinbarungsteil 

1 k: Kapital in DM 
1 ke: Endkapital in DM 
1 p: Zinssatz in Prozent 

i 

REM ====== Anweisungsteil 

INPUT "Eingesetztes Kapital";k 
INPUT "Jahreszinssatz ";p 
LET ke=2*k 

REPEAT !Schleifenbeginn 

LET k=k+k*p/100 
PRINT " ";k 

UNTIL k>=ke !Schleifenende 

PRINT "Ende nach Verdoppelung." 

END 
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Ausführung zu Programm KAPITAL2: 


Kapitalien bis zur Verdoppelung. 
Eingesetztes Kapital? 100000 
Jahreszinssatz ? 14 

114000 
129960 
148154.4 
168896.016 
192541.45824 
219497.2623936 
Ende nach Verdoppelung. 


3.1.3.3 Schleife mit Abfrage in der Mitte 

Anhand des Spielprogramms ZUFALL wollen wir den Schleifentyp 
"Abfrage in der Mitte des Wiederholungsteil" erklären. Bei diesem Schlei¬ 
fentyp befindet sich die Schleifenabfrage 

EXIT IF d%=z% 

inmitten des Wiederholungsteil, der sich vom Befehl DO bis zum Befehl 
LOOP erstreckt. Würde die EXIT IF Anweisung fehlen, hätten wir eine 
Endlosschleife vorliegen, die nie abbrechen würde. 

Zu den Programmstrukturen von ZUFALL: Aus dem Struktogramm erse¬ 
hen wir deutlich, daß innerhalb der Schleife noch eine Zweiseitige Aus¬ 
wahlstruktur eingeschachtelt ist: Wenn z%>d%, dann zu groß, sonst zu 
klein. Dieses Programm ZUFALL ist also bereits recht komplex mit drei 
Programmstrukturen: 

1. Zuerst Folgestruktur (bis zum Befehl DO), dann 

2. Wiederholungsstruktur (zw. DO und LOOP) mit eingeschachtelter 

3. Auswahlstruktur (IF-Anweisung). 

Zu den beiden Funktionen RND und INT: RND (von Random=Zufall) 
erzeugt eine Zufallszahl, die zwischen 0 (einschließlich) und 1 
(ausschließlich) liegt, wobei hinter dem Wort RND in Klammern 
wahlweise ein Zahlenausdruck stehen kann, der allerdings nicht beachtet 
wird. 


PAP zu KAPITAL2: 
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Die Funktion INT (von integer=ganzzahlig) rundet auf die nächstkleinere 
ganze Zahl ab, wenn das Argument nicht ganzzahlig ist. Die hier im 
Ausführungsbeispiel zu Programm ZUFALL vom Computer erzeugte Zahl 
108 wird wie in der Abbildung dargestellt in vier Schritten der Variablen 
d°/o zugewiesen. 


Problem: Eine Zahl aus den a% auf n% folgenden Zahlen zufällig 
erzeugen. 

let dX=iNT(a%*RNDO)+nX) in vier Schritte aufgelöst: 

- RND(l) ergibt beispielsweise 0.88249 

- a% mal 0.88249 ergibt 8.8249 (wenn a%= 10) 

- n% plus 8.8249 ergibt 108.8249 (wenn n%=100) 

- INT(108.8249) ergibt schließlich 108 

Ausgabe: Zufallszahl 108 

Zufallszahl über die Funktion RND und INT an einem Beispiel 


Mit INT verwandt ist die Funktion TRUNC(x) (von truncate = abschnei¬ 
den). Diese Funktion schneidet die Nachkommastellen des Arguments x 
ab, ist also für positive Zahlen gleichbedeutend mit INT(x). Allerdings ist 
beispielsweise INT(-1.5) = -2, aber TRUNC(-1.5) = -1 ! 

Das Gegenstück zu TRUNC(x), FRAC(x), liefert den Nachkommateil von 
x als Resultat. 

Im Programm taucht ein weiterer neuer Befehl auf: INC v%. Inkre- 
mentieren heißt vergrößern, und genau das tut der Befehl auch: Er erhöht 
sein Argument um eins, ist also völlig gleichbedeutend mit 
"LET v%=v%+l". Der Vorteil von INC und von DEC (letzterer Befehl 
erniedrigt (dekrementiert) eine Zahl um eins) ist die geringere Aus¬ 
führungszeit. 
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Codierung zu Programm ZUFALL mit Funktion RND: 


REH ====== Programm ZUFALL 

PRINT "Raten einer Zahl mittels Funktion RND als Spielprogramm." 

I 

REM ====== Vereinbarungsteil 

1 z%: Jeweilige Benutzereingabe über Tastatur 

1 d%: Vom Computer erzeugte Zufallszahl 

1 a%.n%: Grenzen zur Auswahl einer Zufallszahl 

1 v%: Versuchszähler 

■ 

REM ====== Anweisungsteil 


PRINT "Eine Zahl wird zufällig aus den a" 

PRINT "auf n folgenden Zahlen erzeugt." 

INPUT "Werte für a,n";a%,n% 

LET d%=I NT(a%*RND(1)+n%) 

LET v%=0 

DO !Schleifenbeginn 

INPUT "Ihre Zahl";z% 

INC v% 

EXIT IF d%=z% !Schleifenabfrage 

IF z%>d% THEN 
PRINT "... zu groß." 

ELSE 

PRINT "... zu klein." 

ENDIF 

LOOP !Schleifenende 

PRINT "Treffer ";d%;" nach ";v%;" Versuchen." 

PRINT "Ende des Spiels," 

END 


Struktogramm zu Programm ZUFALL: 


Anfangswerte a%,n°/o,d% und v% 



Zahl z% eintippen 



Versuche v% = v% + 1 


I— 

Wenn d°/o=z% Schleifenabbruch 



z%>d°/o 



nein 

i a 



zu klein 

zu groß 

Treffer d% und v% Versuche ausgeben 


Wiederholungsstruktur 
(Schleife mit Abfrage 
in der Mitte) 


Auswahlstruktur 
(Zweiseitige Auswahl) 
in der Schleife ein¬ 
geschachtelt, d.h. bei 
jedem Schleifen¬ 
durchlauf auszuführen 
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Ausführung zu Programm ZUFALL: 


Raten einer Zahl mittels Funktion RND als Spielprogramm. 
Eine Zahl wird zufällig aus den a 
auf n folgenden Zahlen erzeugt. 

Werte für a,n? 10,100 
Ihre Zahl? 106 
... zu groß. 

Ihre Zahl? 103 
... zu gro/8. 

Ihre Zahl? m 

Treffer 101 nach 3 Versuchen. 

Ende des Spiels. 


Die Programmzeile "LET d%=INT(a°/o+RND(l)+n%)" legt in d% eine ganz¬ 
zahlige Zufallszahl ab, die zwischen a% und a°/o+n°/o-l (einschließlich) 
liegt. GFA-Basic stellt eigens für diesen Zweck eine besondere Funktion 
zur Verfügung: RANDOM(x), die einen zufälligen Wert zwischen 0 und 
x-1 zurückgibt. Die obige Programmzeile hätte man also auch kürzer 
schreiben können als: LET d°/o=RANDOM(a%)+n%. 

Noch ein Wort zu Zufallzahlen: Will man bei jedem Programmdurchlauf 
die gleiche Folge von Zufallszahlen erzeugt haben (um z.B. das Programm 
besser austesten zu können), kann man mittels des Befehls 
"RANDOMIZE x" am Programmanfang den Zufallszahlengenerator mit 
einem festen Wert initialisieren. Wird RANDOMIZE nicht verwendet, 
entstehen jedes Mal andere Zufallszahlen (was normalerweise auch 
erwünscht ist). 


In GFA-Basic 3.0 ist es möglich, die oben beschriebene DO..LOOP- 
Schleife mit den anderen Schleifenkonstrukten zu kombinieren und hinter 
die DO- oder die LOOP-Anweisung "WHILE" oder "UNTIL" zu setzen. 
Dabei bewirkt das zusätzliche WHILE, daß die Schleifenbearbeitung nur 
fortgesetzt wird, wenn die hinter WHILE angegebene Bedingung zutrifft 
und UNTIL, daß dies nur geschieht, wenn die Bedingung nicht zutrifft. 
Einige Beispiele: 


LET i%=1 
DO WHILE l%<10 
INC i% 

LOOP 


Diese zusammengesetzte Schleifen¬ 
struktur entspricht der normalen 
WHILE..WEND-Schleife. Sie ist also 
abweisend, da die Schleifenbedingung 
stets vor Eintritt in die Schleife 
geprüft wird. 
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LET i%=1 
DO UNTIL i%=10 
INC i% 

LOOP 


LET i%=1 
DO 

INC i% 

LOOP UNTIL i%=10 


LET i%=1 
DO UH ILE i%<10 
INC i% 

INPUT j% 

LOOP UNTIL j%=5 


Auch diese Schleife ist abweisend. Sie 
bricht ab, wenn i% den Wert 10 
erreicht, tut also nichts anderes als die 
Schleife im ersten Beispiel. Diese 
Schleifenkonstruktion entspricht dem 
WHILE..WEND mit negierter Schlei¬ 
fenbedingung. 

Hier wird die Schleifenbedingung erst 
am Schleifenende geprüft; die Schleife 
ist also nicht-abweisend. Da der 
Abbruch bei eingetretener Bedingung 
erfolgt, gleicht sie der REPEAT.. 
UNTIL-Schleife. 

Nun eine Schleife mit Abbruch¬ 
bedingung am Anfang und am Schluß. 
Sie bricht ab, wenn i% auf 10 
hochgezählt oder wenn die Zahl 5 
eingegeben wurde, je nachdem, was 
früher eintritt. 


Insgesamt lassen sich durch solche Kombinationen neun verschiedene 
Schleifentypen konstruieren. Da sie aber nicht immer sehr übersichtlich 
sind und meist auch eine Entsprechung bei den bereits bekannten 
Schleifentypen existiert, haben diese Schleifen keine große Bedeutung für 
die Programmstruktur. 


3.1.3.4 Zählerschleife 

Läßt man ein Testprogramm auf verschiedenen Computern laufen, um 
über den Vergleich der Ergebnisse deren Leistungen zu beurteilen, spricht 
man von einem Benchmark-Test. Ein einfacher Test besteht darin, 
20000mal 10 durch 3 zu teilen, um über die hierfür benötigte Zeit dann 
auf die Verarbeitungsgeschwindigkeit des Computers bzw. der CPU zu 
schließen. Das folgende Programm ZEITTEST enthält dieses Testverfah¬ 
ren. 

Es wird die FOR-NEXT-Schleife verwendet, da sie sich besonders gut 
eignet, wenn man die Anzahl der Schleifendurchläufe vor Eintritt in die 
Schleife bereits kennt. Im Beispielprogramm hat die Laufvariable z% beim 
ersten Schleifendurchlauf den Wert I. Dieser Wert wird jedesmal um eins 
erhöht, wenn der Befehl NEXT z% ausgeführt wird. Falls z% den Wert 
20000 noch nicht überschritten hat, wird die Schleife erneut durchlaufen, 
insgesamt also 20000 mal. 
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Die FOR-NEXT-Schleife ist wie die REPEAT-UNTIL-Schleife nicht 
abweisend, da der Schleifenabbruch am Schleifenende geprüft wird. Sie 
wird also mindestens einmal durchlaufen, auch wenn der Anfangswert der 
Laufvariable größer ist als der Endwert. 


Codierung zu Programm ZEITTEST: PAP zu Programm ZEITTEST: 


REM ====== Programm ZEITTEST 

PRINT "Test zur Verarbeitungsgeschwindigkeit." 
PRINT " - Testbeginn (bitte warten)" 

LET zeit%=TIMER 
FOR Z%=1 TO 20000 
LET t=10/3 
NEXT zX 

LET zeitX=TIMER-zeitX 

PRINT " - Testende nach ";zeitX/200;" Sekunden." 
END 


Ausführung zu Programm ZEITTEST auf dem Atari: 


Test zur Verarbeitungsgeschwindigkeit. 

- Testbeginn (bitte warten) 

- Testende nach 3.965 Sekunden. 


Ausführung zu Programm ZEITTEST auf dem IBM PC: 



Test zur Verarbeitungsgeschwindigkeit. 

- Testbeginn (bitte warten) 

- Testende nach 63 Sekunden. 


Die Funktion TIMER (kein Argument!) liefert die Zeit in zweihundertstel 
Sekunden, die seit dem Einschalten vergangen ist. Um auf die Angabe in 
Sekunden zu kommen, wird die Variable zeit% im Programm durch 200 
geteilt. 

Die beiden Ausführungen zeigen, daß der 20000malige Schleifendurchlauf 
auf dem Atari fast lömal schneller abläuft als auf dem IBM PC. 
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Struktogramm zu Programm ZEITTEST: 


Ausgabe: Texthinweise 


zeit%=TIMER , d.h. die Anzahl der zweihundertstel Sekunden seit 
dem Start der Variablen zeit% zuweisen 


Zählerschleife: Wiederhole für z% von 1 bis 20000 


Berechnung: t = 10/3 


zeit°/o=TIMER-zeit%, d.h. die während der 20000 Durchläufe der 
Zählerschleife abgelaufenen zweihundertstel Sekunden der Variablen 
zeit% zuweisen. 


Anzahl der Sekunden (zeit% / 200) ausgeben 


Im folgenden sind einige Beispiele für gültige FOR-Anweisungen wie¬ 
dergegeben (Werte der Laufvariablen in Klammern): 


FOR i%=100 TO 102 
FOR s1%=3 TO ewer 
FOR d%=0 TO 6 STEP 2 
FOR a%=9 TO 13 STEP 3 
FOR i%=8 DOWNTO 6 
FOR z=1 TO .8 STEP -.05 
FOR a%=1 TO 1 


( 100 , 101 , 102 ) 

(3, 4 bei ewer=4) 
(0, 2, 4, 6) 

(9, 12) 

(8, 7, 6) 

(1, .95, .9, .85, .8) 
( 1 ) 


Mit STEP kann man dabei für die Laufvariable eine von 1 abweichende 
Schrittweite angeben. Ist STEP negativ, so sollte der Anfangswert natür¬ 
lich größer sein als der End wert. Statt "FOR i°/o=aw TO ew STEP -1" 
kann auch "FOR i%=aw DOWNTO ew" geschrieben werden. 
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FOR zX=10 TO 100 STEP 30 
PRINT zX 
NEXT zX 


Laufvariable z% mit aw=10, ew=100 
und sw=30. Viermalige Wiederholung. 
Ausgabe von 10, 40, 70 und 100. 


FOR zX=3 TO -6 STEP -2 
PRINT zX 
NEXT zX 


Laufvariable z% mit aw=3, ew=-5 und 
sw=-2. Fünfmalige Wiederholung. 
Ausgabe von 3, 1, -1, -3 und -5. 


aw=Anfangswert, ew=Endwert, sw=Schrittweite der Laufvariablen 

Zwei Zählerschleifen der Form FOR z°/o=aw TO ew STEP sw 


3.1.3.5 Unechte Zählerschleifen 

Die Kontrollanweisung FOR..NEXT für die Zählerschleife ist bequem zu 
handhaben. Aus diesem Grund setzt man sie gelegentlich auch dann ein, 
wenn überhaupt nicht gezählt werden soll bzw. wenn der angegebene 
Endwert nie erreicht wird. Man spricht von einer unechten Zählerschleife. 
Das folgende Programm FAHRTENB demonstriert dies anhand einer 
Kfz-Benzinabrechnung. 

Zur Codierung von Programm FAHRTENB: 

Zu Beginn der Zählerschleife wird in der Anweisung 

FOR z%=1 TO 999 

ein normalerweise nicht erreichbarer Endwert angegeben, weil der 
eigentliche Schleifenausgang mit EX IT IF, das wir schon bei der DO- 
LOOP-Schleife kennengelernt haben, vorgesehen ist. EXIT IF kann zum 
Ausstieg aus allen bisher behandelten Schleifentypen benutzt werden. 


Codierung zu Programm FAHRTENB: 

REM ====== Programm FAHRTENB 

PRINT "Kfz-Benzinverbrauchswerte ermitteln" 
PRINT "aus Eintragungen im Fahrtenbuch." 
PRINT 


REM ====== Vereinbarungsteil 

1 kl: km-Stand laut Fahrtenbuch 

1 11: Literverbrauch laut Fahrtenbuch 

1 dl: DM-Betrag für Tanken laut Fahrtenbuch 

1 vl: Verbrauch in Liter je 100 km 

1 k,l,d,v,b: Entsprechende Gesamtwerte 

1 z%: Laufvariable für Zählerschleife 
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REM ====== Anweisungsteil 

INPUT "Anfangskilometerstand (Tank voll)";kO 
LET k=0 
LET 1=0 
LET d=0 

FOR z%=1 TO 999 !Schleifenbeginn 

PRINT z%;". Tanken: km-Stand, Liter, DM (0=Ende)" 
INPUT » ";k1,11,d1 

EXIT IF kl=0 !Schleifenabbruch 

LET k1=k1-k0 

LET k=k+k1 

LET 1=1+11 

LET d=d+d1 

LET vl=100*l1/kl 

PRINT »Verbrauch: Liter/100 km" 

LET b1=d1/U 

PRINT "Benzinpreis: ";b1;" DM/Liter" 

LET k0=k0+k1 
PRINT 

NEXT z% !Schleifenende 

LET v=100*l/k 
LET b=d/l 
PRINT 


PRINT "Kilometer gesamt ";k;" km" 

PRINT "Ausgabe gesamt ";d;" DM" 

PRINT "Verbrauch (Mittel) ";v;" Liter/100 km" 

PRINT "Benzinpreis (Mittel) ";b;" DM/Liter" 

END 


Ausführung zu Programm FAHRTENB: PAP zu FAHRTENB: 


Kfz-Benzinverbrauchswerte ermitteln 
aus Eintragungen im Fahrtenbuch. 

Anfangskilometerstand (Tank voll)? 60000 

1. Tanken: km-Stand, Liter, DM (0=Ende) 

? 60100.10.14 

Verbrauch: 10 Liter/100 km 

Benzinpreis: 1.4 DM/Liter 

2. Tanken: km-Stand, Liter, DM (0=Ende) 

? 60260.20.29 

Verbrauch: 12.5 Liter/100 km 

Benzinpreis: 1.45 DM/Liter 

3. Tanken: km-Stand, Liter, DM (0=Ende) 

? 0 . 0.0 

Kilometer gesamt 260 km 

Ausgabe gesamt 43 DM 

Verbrauch (Mittel) 11.53846153846 Liter/100 km 
Benzinpreis (Mittel) 1.433333333333 DM/Liter 
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Struktogramm zu Programm FAHRTENB: 


Anfangskilometerstand bei vollem Tank kO eingeben 
Anfangswerte festlegen: k=0, 1=0, d=0 


von 1 bis 999 wiederhole 

KM-Stand kl, Literverbrauch 11 und DM-Betrag dl 
eintippen 

k 1 =0 


nein 


Berechnung von k, 1, 
d, vl, bl, und kO 

Schleifenabbruch 

Ausgabe von Verbrauch vl 
und Benzinpreis bl 



Berechnung von v und b 


Ausgabe von k, d, v, b 


Zur Unterscheidung von offenen und geschlossenen Schleifen: 

Zu Beginn jeder Ausführung des Programms FAHRTENB ist vollkommen 
offen, wie oft die Schleife durchlaufen wird. Man nennt diese Schleife 
deshalb auch eine offene Schleife. Demgegenüber wurde Programm 
ZEITTEST als geschlossene Schleife jeweils immer 20000mal durchlaufen. 
Der Typenbildung von offenen und geschlossenen Schleifen liegt also die 
Zahl der Schleifendurchläufe als Unterscheidungskriterium zugrunde. 
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3.1.3.6 Schachtelung von Zählerschieifen 

Mehrere Programmstrukturen können entweder hintereinander oder ge¬ 
schachtelt in einem Programm angeordnet sein (vgl. Abschnitt 1.3.3.5). Bei 
der Schachtelung von Zählerschleifen ist zu beachten, daß die zuerst 
begonnene äußere Schleife zuletzt beendet wird, daß die innexe Schleife 
somit vollständig eingeschachtelt ist. 

In der Abbildung sind zwei geschachtelte Schleifen wiedergegeben: 

Die innere Schleife mit der Laufvariablen y% (als y-Schleife bezeichnet) 
ist in einer äußeren Schleife mit der Laufvariablen x% eingeschachtelt. 
Lassen wir das Programm laufen, wird durch die PRINT-Anweisung das 
Wort TEST 12mal (3*4=12) ausgegeben; neben dem Wort TEST erscheinen 
zur Kontrolle die aktuellen Werte der Laufvariablen x% und y% mit 11, 
12, 13, 14, 21, 22, 23, 24, 31, 32, 33 und 34. 


—FOR xX=1 TO 3 
i— FOR yX=1 TO 4 

PRINT "TEST";xX;yX 

—NEXT yX 
— NEXT xX 

Programm läuft, 
vollständige Schachtelung 


-FOR xX=1 TO 3 

-FOR yX=1 TO 4 

PRINT "TEST";xX;yX 

- NEXT xX 

-NEXT yX 

Programm läuft nicht, 
teilweise Schachtelung 


Schachtelung mit innerer y-Schleife und äußerer x-Schleife 


Als Beispiel zur Schachtelung von Zählerschleifen betrachten wir das 
Programm RATENSPA: 

Das Programm hat eine äußere Schleife mit der Laufvariable i% für die 
Anzahl der Jahre und eine innere Schleife mit j% für die Anzahl der 
jährlichen Zahlungen. Im ersten Ausführungsbeispiel wird die äußere 
Schleife drei Mal durchlaufen, die innere wird dabei jeweils vier Mal 
wiederholt. Dies hat zur Folge, daß die PRINT-USING-Anweisung (sie 
dient der Ausgabeformatierung und wird in 3.4.2.4 genau erklärt) zwölf 
Mal (3*4=12) ausgeführt wird. 
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Codierung zu RATENSPA: 


REM ====== Programm RATENSPA 

PRINT "Entwicklung des Guthabens beim Ratensparen" 
PRINT "als Übersichtstabelle." 

I 

REM ====== Vereinbarungsteil 

• s: Sparrate in DM gleichbleibend 
1 z%: Anzahl der Zahlungen pro Jahr 
1 v%: Vertragslaufzeit des Ratensparens 
1 p: Jahreszinssatz in % 

1 f: Zinsfaktor aus der Zinsformel 
1 k: Kapital als neues Endguthaben 
1 i%: Laufvariable für äußere Jahresschleife 
1 j%: Laufvariable für innere Monatsschleife 


REM ====== Anweisungsteil 

INPUT "Sparrate, Zahlungen/Jahr";s,z% 
INPUT "Vertragslaufzeit (Jahre)";v% 
INPUT "Zinssatz (% pro Jahr) ";p 


LET k=0 

LET f=1+p/z%/100 
PRINT 

PRINT " Jahr Monat 
FOR i%=1 TO v% 

FOR j%=1 TO z% 

LET k=(k+s)*f 
PRINT USING " ## 

NEXT j% 

NEXT i% 

PRINT "Ende." 

END 


Guthaben" 

!Beginn der äußeren Schleife 
!Beginn der inneren Schleife 

## #######.##",i%,j%,k 

•Ende der inneren Schleife 
.'Ende der äußeren Schleife 


Struktogramm zu Programm RATENSPA: 


Anfangswerte s,z%,v%,p,k,f setzen 


Überschriftzeile ausgeben 


Für i% von 1 bis v% wiederhole 


Für j% von 1 bis z% wiederhole 


Guthaben k ermitteln 
und Zeile ausgeben 


Ende 


a 


5 



Beginn äußere Schleife 
Beginn innere Schleife 

Ende beider Schleifen 
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Zwei Ausführungen zu Programm RATENSPA: 


Innere Schleife 
3*4=12mal durchlaufen 


Entwicklung des Guthabens beim Ratensparen 
als Übersichtstabelle. 

Sparrate, Zahlungen/Jahr? 100.4 
Vertragslaufzeit (Jahre)? 3 
Zinssatz (X pro Jahr) ? 10 

Jahr Monat Guthaben 

1 1 102.50 

1 2 207.56 

1 3 315.25 

1 4 425.63 

2 1 538.77 

2 2 654.74 

2 3 773.61 

2 4 895.45 

3 1 1020.34 

3 2 1148.35 

3 3 1279.56 

3 4 1414.04 


Innere Schleife 
4*2=8mal durchlaufen 


Entwicklung des Guthabens beim Ratensparen 
als Übersichtstabelle. 

Sparrate, Zahlungen/Jahr? 200.2 
Vertragslaufzeit (Jahre)? 4 
Zinssatz (X pro Jahr) ? 12 

Jahr Monat Guthaben 

1 1 212.00 

1 2 436.72 

2 1 674.92 

2 2 927.42 

3 1 1195.06 

3 2 1478.77 

4 1 1779.49 

4 2 2098.26 


Die Vorschriften für die Schachtelung von Zählerschleifen mit 
FOR..NEXT gelten entsprechend auch für die Schachtelung der anderen 
Schleifentypen. 



208 


3 Programmierkurs mit GFA-Basic 


3.1.4 Programm mit Unterprogramm 

Der Grundsatz "... teile und herrsche" gilt auch bei der Programment¬ 
wicklung. Es ist zumeist vorteilhaft, einen Programmkomplex in mehrere 

Unterprogramme aufzuteilen. 

- Ein in Unterprogramme gegliedertes Programm ist stets besser lesbar 
als ein ungegliedertes und oft langes Gesamtprogramm. 

- Einen an mehreren Stellen im Programm benötigten bzw. aufzuru¬ 
fenden Ablauf muß man nur einmal als Unterprogramm codieren. 

- Oft benötigte Verfahren können in einer UnterProgrammbibliothek 
gesammelt und bei Bedarf im jeweiligen neuen Programm wie 
Bausteine eingesetzt werden. 

- Bei größeren Vorhaben können Teilabläufe von verschiedenen 
Personen getrennt entwickelt und dann zu einem Programmkomplex 
zusammengesetzt werden. 

Vier Vorteile bei der Bildung von Unterprogrammen 


In GFA-Basic kann man Unterprogramme entweder durch die Anwei¬ 
sungen GOSUB, PROCEDURE und RETURN verwirklichen oder durch 
Funktionen. Wir wenden uns zunächst der ersten Möglichkeit zu. 


3.1.4.1 Unterprogramme mit GOSUB, PROCEDURE und RETURN 

Das Programm UNTPROG1 demonstriert, wie ein einmal codiertes 
Unterprogramm namens erhoehen zweimal aufgerufen wird. Unter¬ 
programme stehen in GFA-Basic in der Regel am Ende des Haupt¬ 
programms und werden durch das Befehlswort PROCEDURE, gefolgt 
vom Namen des Unterprogramms, eingeleitet. Abgeschlossen werden sie 
durch RETURN. Letzterer Befehl veranlaßt den Interpreter, das Unter¬ 
programm zu verlassen und bei der Anweisung weiterzumachen, die dem 
GOSUB-Befehl, der den Aufruf bewirkte, folgt. In einem Programm 
können mehrere Unterprogramme stehen, die sich auch gegenseitig 
aufrufen können. 

Zweck des Unterprogramms in unserem Beispiel ist es, die jeweilige 
Tastatureingabe um 10 zu erhöhen. Da sich die Eingabe im Haupt¬ 
programm zuerst in x und dann in y befindet, wird vor jedem Unter¬ 
programmaufruf die Eingabe einer Variablen namens par (Parameter) 
zugewiesen und dann das Unterprogramm mit "GOSUB erhoehen" 
aufgerufen. 
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Im Unterprogramm führt der Computer die Anweisung 
LET par=par+10 
aus und kehrt mit 

RETURN 

in die auf den Unterprogrammaufruf folgende Zeile zurück, um mit dem 
Hauptprogramm fortzufahren. Jetzt wird das Ergebnis wieder aus par 
gelesen, der entsprechenden Variablen zugewiesen und angezeigt. Die 
etwas umständliche Formulierung mit par ist nötig, um die Verwend¬ 
barkeit des Unterprogramms nicht auf die Erhöhung einer einzigen 
Variablen einzuschränken. 

Im Vereinbarungsteil des Programms UNTPROG1 wird neben den Pa¬ 
rametern x, y und par das Unterprogramm namens erhoehen angeführt. 
Insbesondere bei komplexen Programmen kann man sich so rasch über 
deren Gliederung informieren. 


Codierung zu Programm UNTPROG1: 


REM ====== Programm UNTPROG1 

PRINT "Ein Unterprogramm zweimal im Hauptprogramm aufrufen." 

i 

REM ====== Vereinbarungsteil 

1 x # y: Aktuelle Parameter 

1 par: Formaler Parameter 

1 erhoehen: Unterprogramm, das par verändert 

REM ====== Anweisungsteil 


INPUT "Wert von x eintippen";x 

1 *** ERSTER UNTERPROGRAMMAUFRUF ************** 

LET par=x 

GOSUB erhoehen 

LET x=par 

PRINT "x um 10 erhöht: ";x 

. *** ZWEITER UNTERPROGRAMMAUFRUF ************* 

INPUT "Wert von y eintippen";y 

LET par=y 

GOSUB erhoehen 

LET y=par 

PRINT "y um 10 erhöht: ";y 
PRINT "Ende des Hauptprogramms." 

END 
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i *** Unterprogramm erhoehen **************************** 
PROCEDURE erhoehen 
LET par=par+10 
RETURN 

i ★**********★******★******★*****★★★★★★★**★★★★***★★★**★★* 


Ausführung zu Programm UNTPROG1: 


Ein Unterprogramm zweimal im Hauptprogramm aufrufen. 

Wert von x eintippen? 34 

x um 10 erhöht: 44 

Wert von y eintippen? -34.5 

y um 10 erhöht: -24.5 

Ende des HauptProgramms. 


PAP zu Programm UNTPROG1: 
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3.1.4.2 Übergabeparameter 

UNTPROG1 läßt sich mit Hilfe von Übergabeparametern an Unter¬ 
programme viel eleganter schreiben, ohne daß sich die Ausführung 
ändert: 


Codierung zu Programm UNTPROG2: 

REH ====== Programm UNTPROG2 

PRINT "Ein Unterprogramm mit Übergabeparameter 
PRINT "zweimal im Hauptprogramm aufrufen." 

REM ====== Vereinbarungsteil 

1 x,y: Aktuelle Parameter 

1 erhoehen(par): Unterprogramm mit Übergabeparameter par 
■ 

REM ====== Anweisungsteil 

INPUT "Wert von x eintippen";x 

» *** ERSTER UNTERPROGRAMMAUFRUF ************** 

erhoehen(x) 

PRINT "x um 10 erhöht: ";x 

' *** ZWEITER UNTERPROGRAMMAUFRUF ************* 

INPUT "Wert von y eintippen";y 
erhoehen(y) 

PRINT "y um 10 erhöht: ";y 
PRINT "Ende des Hauptprogramms." 

END 

■ *** Unterprogramm erhoehen **************************** 
PROCEDURE erhoehen(VAR par) 

LET par=par+10 
RETURN 

i ******************************************************* 


In der Codierung fällt zunächst auf, daß die GOSUB-Befehle fehlen. Dies 
ist grundsätzlich immer möglich und dient der leichteren Lesbarkeit. Nur 
wenn Unterprogramme zufällig den gleichen Namen haben wie GFA- 
Befehle, ist ein GOSUB erforderlich. Statt des GOSUBs kann auch ein 
kaufmännisches a ("@") direkt vor den Unterprogrammnamen geschrieben 
werden. 

Der wesentliche Unterschied zwischen UNTPROG1 und UNTPROG2 ist 
aber die Tatsache, daß die zu erhöhende Variable nicht vor Aufruf des 
Unterprogramms par zugewiesen, sondern beim Aufruf mit angegeben 
und so an das Unterprogramm übergeben wird. 

Das Vorhandensein von Übergabeparameter wird bei der Unterpro¬ 
grammdefinition festgelegt, und zwar durch Angabe einer entsprechenden 
Anzahl von Variablennamen (durch Kommata voneinander getrennt) in 
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Klammern hinter dem Unterprogrammnamen. In unserem Beispiel 
existiert nur ein solcher Parameter, nämlich par. Das vorangestellte 
Schlüsselwort "VAR" kennzeichnet par als Variablenparameter , d.h, der 
Name "par" vertritt im Unterprogramm den Namen der übergebenen 
Variablen (eine andere Art von Übergabeparameter wird im nächsten 
Abschnitt vorgestellt). Die Variable par hat im Unterprogramm den Wert 
von x bzw. y, je nach dem, welche von beiden Variablen beim Aufruf 
angegeben wurde. Da par nur eine andere Bezeichnung für diese Variable 
ist, wird jede Änderung des Wertes von par im Unterprogramm auch an x 
bzw. y weitergegeben. 


3.1.4.3 Lokale Variablen 

Eine weitere Möglichkeit der Parameterübergabe wird im Programm 
UNTPROG3 demonstriert: 


Codierung zu UNTPROG3: 

REM ====== Programm UNTPROG3 

PRINT "Ein Unterprogramm mit lokalen Variablen" 

PRINT "zweimal im Hauptprogramm aufrufen." 

i 

REM ====== Vereinbarungsteil 

1 x,y: Aktuelle Parameter 

1 erhoehen(par): Unterprogramm mit Übergabeparameter par 

i 

REM ====== Anweisungsteil 

INPUT "Wert von x eintippen";x 

• *** ERSTER UNTERPROGRAMMAUFRUF ************** 

erhoehen(x) 

PRINT "x im Hauptprogramm: ";x 
' *** ZWEITER UNTERPROGRAMMAUFRUF ************* 

INPUT "Wert von y eintippen";y 
erhoehen(y) 

PRINT "y im Hauptprogramm: ";y 

PRINT "par im Hauptprogramm: ";par 
PRINT 

PRINT "Ende des Hauptprogramms." 

END 
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i ★★★ Unterprogramm erhoehen 
PROCEDURE erhoehen(par) 

LOCAL x,y IDeklaration der lokalen Variablen 

LET par=par+10 
LET x=3 
LET y=4 

PRINT " par im Unterprogramm: M ;par 
PRINT " x im Unterprogramm: ";x 

PRINT " y im Unterprogramm: ";y 

RETURN 

i ******************************************************* 


Zum Verständis des Programms muß der Unterschied zwischen globalen 
und lokalen Variablen deutlich gemacht werden: 

Globale Variablen sind Variablen, die in allen Programmteilen den 
gleichen Wert besitzen und überall veränderbar sind. Die Variablen in den 
hier vorgestellten Beispielprogrammen waren bis jetzt immer global. 

Lokale Variablen haben einen auf ein Unterprogramm eingeschränkten 
Geltungsbereich. D.h., eine Veränderung des Wertes dieser Variablen im 
Unterprogramm ändert nichts am Wert einer gleichnamigen Variablen im 
Hauptprogramm oder ih einem anderen Unterprogramm. 

Da im Unterprogramm erhoehen in UNTPROG3 der Übergabeparameter 
par ohne "VAR" angegeben wird, wird par zu einer lokalen Variablen. 
Zwar erhält par wie gewohnt beim Aufruf den Wert von x bzw. y, doch 
hat eine Änderung des Wertes von par keinen Einfluß mehr auf den Wert 
von par im Hauptprogramm (der sowieso Null ist, da par im Haupt¬ 
programm nicht benutzt wird) oder auf den Wert irgendeiner anderen 
Variablen. Deshalb wird auch der erhöhte Wert von par noch im 
Unterprogramm angezeigt, da beim Rücksprung die Änderung sonst 
verloren gehen würde. 

(Der Variablenparameter par aus Programm UNTPROG2 war in einem 
gewissen Sinne ebenfalls lokal, da zumindest sein Name völlig unabhängig 
war vom Hauptprogramm. Man hätte ihn beispielsweise als "x" bezeichnen 
können, ohne daß es zu irgendwelchen Kollisionen mit dem x aus dem 
Hauptprogramm gekommen wäre.) 

Verwendet ein Unterprogramm beide Arten von Übergabeparameter, so 
müssen die Variablenparameter am Schluß der Parameterliste stehen, da 
alle hinter der VAR-Anweisung stehenden Variablen als Variablen¬ 
parameter aufgefaßt werden. 
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Benötigt man im Unterprogramm zusätzliche lokale Variablen, so kann 
man sie mit Hilfe des Befehls LOCAL definieren. Dies geschieht in 
UNTPROG2 für die Variablen x und y: Sie haben, wie aus dem 
Ausführungsbeispiel ersichtlich wird, im Hauptprogramm einen ganz 
anderen Wert als im Unterprogramm. Hätte man sie nicht lokal definiert, 
wären x und y im Haupt- und Unterprogramm identisch. 

In ihrer Unabhängigkeit liegt auch der enorme Vorteil von lokalen 
Variablen: Der Programmierer braucht bei ihrer Verwendung nicht darauf 
zu achten, daß er keine Variablen aus dem Haupt- oder anderen 
Unterprogrammen ändert. Sie erlauben es ihm, in verschiedenen 
Unterprogrammen die gleichen Variablennamen zu verwenden, ohne dabei 
andere Programmteile ungewollt zu beeinflussen. 

Durch lokale Variablen wird es auch möglich, Unterprogramme sich selbst 
aufrufen zu lassen. Man spricht dann von Rekursion. Auf die Rekursion 
werden wir in späteren Kapiteln zurückkommen. 


Ausführung zu Programm UNTPROG3: 


Ein Unterprogramm mit lokalen Variablen 
zweimal im Hauptprogramm aufrufen. 

Wert von x eintippen? 34 
par im Unterprogramm: 44 
x im Unterprogramm: 3 

y im Unterprogramm: 4 

x im Hauptprogramm: 34 

Wert von y eintippen? -34.5 
par im Unterprogramm: -24.5 
x im Unterprogramm: 3 

y im Unterprogramm: 4 

y im Hauptprogramm: -34.5 

par im Hauptprogramm: 0 

Ende des HauptProgramms. 


3.1.4.4 Funktionen 

Funktionen sind besondere Unterprogramme, die stets einen Wert zurück¬ 
liefern und oft auch nur einen Parameter benötigen. Im Unterschied zu 
den bisherigen Unterprogrammen kann man mit einem Funktionsausdruck 
umgehen wie mit einem festen Wert. Dieser Wert hängt allerdings vom 
angegebenen Parameter ab. 

Für häufig wiederkehrende Probleme sind Funktionen standardmäßig 
vorgegeben und für spezielle Benutzerprobleme können sie von diesem 
selbst definiert werden. 
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Beispiele vorgegebene Standardfunktionen: 


- Numerische Funktionen: 

Ganzzahl: int<3.8) ist 3, int<2.iiid ist 2 

Betrag: absc- 2 ) ist 2, abs( 2 ) ist 2 

Vorzeichen: sgnc-2) ist -1, sgn<2) ist +1, sgn(O) ist 0 

Zufallszahl: rnd ergibt z.B. .12135010957 

Weitere: atn, cos, exp, log, sin, sqr, tan 

(vgl. Abschnitt 2.4.2.2) 


- String- bzw. Text-Funktionen: 

ASC, CHR$, INSTR, LEFT$, LEN, MID$, STR$, RIGHTS, VAL 

(vgl. Abschnitt 2.4.2.2 und 3.2) 


- System-Funktionen: 

FRE, PEEK, POKE, VARPRT, Und XBIOS 

(vgl. Abschnitt 2.4.2.2 und 3.14) 


Selbstdefinierte Funktionen: 

1. Definition der Funktion mit DEFFN Name(Parameterliste)*... 

Aufruf der Funktion mit FN Name(Parameterliste) 

2. Definition der Funktion mit function Name(Parameteriiste) ... endfunc 
Aufruf der Funktion mit fn Namet Parameterliste) 

Zwei Arten von Funktionen 


Das in Klammern hinter der Funktion geschriebene Argument kann eine 
Konstante ( INT(9.7) ), eine Variable ( INT(z) ) oder ein beliebiger 
Ausdruck sein ( INT(9.7+z) ). 

Die beiden Methoden, eine Funktion selbst zu definieren, wollen wir 
anhand einiger einfacher Beispiele erklären: 

1. Möglichkeit: DEFFN 

Das Programm FUNK1 stimmt in seiner Ausführung mit Programm 
UNTPROG1 bzw. UNTPROG2 überein, nicht aber in der Basic- 
Codierung: Statt einer Prozedur ist in FUNK1 zum Erhöhen der Eingabe 
eine benutzerdefinierte Funktion verwendet worden, die mit DEFFN 
erklärt wurde. In der hierfür vorgesehenen Anweisung 


DEFFN erhoeh(par)=par+10 



216 


3 Programmierkurs mit GFA-Basic 


schreiben wir hinter DEFFN den Funktionsnamen erhoeh, gefolgt von ei¬ 
nem Parameter par, dessen Wert in die Funktionsvorschrift par+10 
eingesetzt wird. 

Das Programm FUNKTION enthält die drei Variablen bzw. Parameter x, 
y, und par. Wie in UNTPROG2 vertritt par als formaler Parameter den 
entsprechenden aktuellen Parameter x bzw. y. 


Codierung zu Programm FUNKI: 

REM ====== Programm FUNKI 

PRINT "Funktionsdefinition mit DEFFN." 

i 

' *** ERSTER FUNKT IONS-AUFRUF ****************** 

INPUT "Wert von x ";x 

PRINT "x um 10 erhöht ergibt ";FN erhoeh(x) 

' *** ZWEITER FUNKTIONS-AUFRUF ***************** 

INPUT "Wert von y ";y 

PRINT "y um 10 erhöht ergibt ";FN erhoeh(y) 

PRINT "Ende." 

END 

i 

i *** DEFINITION DER FUNKTION ****************************** 
DEFFN erhoeh(par)=par+10 

i ********************************************************** 


Ausführung zu Programm FUNKI: 


Funktionsdefinition mit DEFFN. 

Wert von x ? 34 

x um 10 erhöht ergibt 44 

Wert von y ? -34.5 

y um 10 erhöht ergibt -24.5 

Ende. 


Betrachten wir als weiteres Beispiel die benutzerdefinierte Funktion FN 
rundenganz, die eine beliebige positive oder negative Zahl auf eine ganze 
Zahl rundet. 

Mit DEFFN wird die Funktion rundenganz definiert, die ihrerseits die 
beiden Systemfunktionen TRUNC (nicht ganzzahligen Teil einer Zahl 
abschneiden) und SGN (Vorzeichen angeben mit 1 für positive, -1 für 
negative Zahlen und 0 für 0) auf ruft. 
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Das Runden der Zahl -200.4 läuft wie folgt ab: 

- Vorzeichenbildung SGN(-200.4) ergibt -1 

- Multiplikation 0.5 * (-1) ergibt -0.5 

- Addition -200.4 + (-0.5) ergibt -200.9 

- TRUNC(-200.9) ist dann das Ergebnis 200 

Das Runden der anderen Zahlen 200.4, 200.9 und -200.9 erfolgt entspre¬ 
chend. 


Definition der Funktion: 

DEFFN rundenganz ( zah l)=TRUNC( zah 1+0.5*$GN( zahl)) 

Viermaliges Aufrufen der Funktion: 

PRINT FN rundenganz (200.4) ergibt 200 
PRINT FN rundenganz (200.9) ergibt 201 
PRINT FN rundenganz (-200.4) ergibt -200 
PRINT FN rundenganz( -200.9) ergibt -201 

Ganzzahl Runden durch die numerische Funktion rundenganz 


Ein Beispiel für eine selbstdefinierte Funktion mit zwei Parametern ist 
die Funktion quadvergleich, die den Wert TRUE liefert, wenn das 
Quadrat des ersten Parameters größer ist als das Quadrat des zweiten, und 
sonst FALSE: 


Definition der Funktion: 

DEFFN quadvergleich(a,b)=a“2>b“2 

Zweimaliges Aufrufen der Funktion: 

PRINT FN quadvergle i ch(-3,2) ergibt TRUE 
PRINT FN quadvergleich(2,2) ergibt FALSE 

Quadratzahlen vergleichen mit der Bool’schen Funktion quadvergleich 

2. Möglichkeit: FUNCTION...ENDFUNC 

Bei komplexeren Funktionsdefinitionen stößt man mit DEFFN oft an 
Grenzen. Dafür gibt es eine weitere Definitionsmöglichkeit, die vom 
Aufbau her den Prozeduren sehr stark ähnelt und auch alle prozedur¬ 
typischen Besonderheiten erlaubt (lokale Variablen, Variablenparameter, 
Rekursion usw.). 
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Wie im Beispielprogramm FUNK.2 zu sehen, wird die Definition mit 
"FUNKTION Funktionsname(Parameterliste)" eingeleitet und mit 
"ENDFUNC" abgeschlossen. Im Gegensatz zu den Prozeduren muß bei 
Funktionen aber ein Wert zurückgegeben werden. Dies geschieht durch 
den Befehl "RETURN Rückgabewert", der gleichzeitig auch den 
Rücksprung ins Hauptprogramm bewirkt. Eine Funktion kann nur über 
RETURN verlassen werden, dazu darf RETURN auch mehrmals in der 
Funktion auftreten. 

Der Aufruf kann (wie bei den durch DEFFN definierten Funktionen) 
durch FN oder @ erfolgen. Liefert eine Funktion einen Text als Ergebnis, 
muß hinter den Funktionsnamen noch ein Dollarzeichen ("$") angefügt 
werden. 

Die Funktion im Programm FUNK2 gibt wie gewohnt den um 10 
erhöhten Übergabewert zurück. Allerdings wird vorher noch geprüft, ob 
das Ergebnis 100 erreicht oder überschreitet; Wenn ja, wird die Zahl 100 
zurückgegeben. 


Codierung zu Programm FUNK2: 

REM ====== Programm FUNK2 

PRINT "Funktionsdefinition mit FUNCTION...ENDFUNC.» 

I 

' *** ERSTER FUNKTIONS-AUFRUF ****************** 

INPUT "Wert von x ";x 

PRINT "neuer x-Wert ist ";FN erhoeh(x) 

• *** ZWEITER FUNKTIONS-AUFRUF ***************** 

INPUT "Wert von y ";y 

PRINT "neuer y-Wert ist ";FN erhoeh(y) 

PRINT "Ende." 

END 

i 

i *** DEFINITION DER FUNKTION ****************************** 
FUNCTION erhoeh(par) 

IF par+10>=100 THEN 
RETURN 100 
ELSE 

RETURN par+10 
ENDIF 
ENDFUNC 

i ********************************************************** 

Ausführung zu Programm FUNK2: 


Funktionsdefinition mit FUNCTION...ENDFUNC. 

Wert von x ? 34 

neuer x-Wert ist 44 

Wert von y ? 95 

neuer y-Wert ist 100 

Ende. 
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In diesem Abschnitt wenden wir uns dem Zerlegen und Zusammenfügen 
einzelner Daten vom Typ String zu. Man spricht dabei oft von String¬ 
verarbeitung oder auch von Textverarbeitung. 

Mit Textverarbeitung ist in diesem Zusammenhang aber nicht ein kom¬ 
merzielles Textsystem gemeint (siehe dazu Abschnitt 1.3.8.3). 


3.2.1 Überblick 

Unter einem String versteht man eine Zeichenkette, d.h. eine Folge von 
Zeichen. In Basic schreibt man Strings zwischen Anführungsstrichen. Hier 
einige Beispiele: 

- "Basic" String aus 5 Buchstaben 

- "!#§%&/()=?’" String aus 12 Sonderzeichen 

- "007" String aus 3 Ziffern 

- "... nur 53 DM!!" String aus 15 Zeichen (Buchstaben.Ziffern 

und Sonderzeichen "gemischt"). 

- " " String aus 6 Leerzeichen (Sonderzeichen). 

- "" String aus keinem Zeichen oder Leerstring. 

Stringvariablen erkennt man an dem Datentypkennzeichen das an den 
Variablennamen angehängt wird. 

- LET text$="Basic" String in Variable text$ zuweisen. 

- PRINT text$ Am Bildschirm den String "Basic" ausgeben. 

- IF text$="Logo"... Vergleich zweier Strings. 

Stringfunktionen erkennt man ebenfalls am "$"-Zeichen am Namensende; 
sie geben ein String als Ergebnis zurück. Basic stellt zahlreiche solcher 
Funktionen standardmäßig bereit. Zusammen mit einigen numerischen 
Funktionen (sie geben ein numerisches Ergebnis zurück, z.B. LEN zur 
Angabe der Länge eines Strings) erleichtern sie die Stringverarbeitung. 


3.2.2 Zeichen für Zeichen verarbeiten 

Programm TEXTO demonstriert die Verwendung der Funktion INSTR, 
die den Suchstring z$ im Gesamtstring e$ sucht und die Position des 
ersten Auftretens ausgibt. Das zweite Ausführungsbeispiel zeigt, daß 
INSTR mit der Suche abbricht, sobald ein Suchstring (hier "E") gefunden 
wurde. 
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Codierung zu Programm TEXTO: 


REM ====== Programm TEXTO 

PRINT "String in einem Text suchen (mit INSTR) 

■ 

REM ====== Vereinbarungsteil 

• e$: Beliebiger Eingabetext 

1 z$: In e$ zu suchender Teilstring (auch einzelnes Zeichen) 

• s: Stelle in e$, an der z$ beginnt bzw. 0 für Fehlanzeige 

i 

REM ====== Anweisungsteil 

INPUT "Welcher Text";e$ 

INPUT "Welchen Teilstring suchen";z$ 

LET s=INSTR(e$,z$) 


IF s=0 THEN 

PRINT "... nicht gefunden." 

ELSE 

PRINT "... beginnt an Stelle ";s;"." 
ENDIF 

PRINT "Ende." 

END 


Drei Ausführungen zu Programm TEXTO: 


String in einem Text suchen (mit INSTR). 
Welcher Text? DISKONTIEREN 
Welchen Teilstring suchen? DISKO 
... beginnt an Stelle 1. 

Ende. 


String in einem Text suchen (mit INSTR). 
Welcher Text? DISKONTIEREN 
Welchen Teilstring suchen? E 
... beginnt an Stelle 9. 

Ende. 


String in einem Text suchen (mit INSTR). 
Welcher Text? DISKONTIEREN 
Welchen Teilstring suchen? SKI 
... nicht gefunden. 

Ende. 
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Die Funktion INSTR hat drei Argumente (siehe Abbildung). Wird stelle 
weggelassen, beginnt die Suche an der 1. Stelle im String s$. INSTR sucht 
stets von links nach rechts. Bei mehrfach vorhandenem Teilstring (wie 
hier "E") gibt INSTR deshalb die Stelle an, an welcher der Teilstring 
erstmalig gefunden wird. Das Ergebnis 0 zeigt an, daß der angegebene 
Teilstring nicht gefunden wurde. 

Will man im String von rechts nach links suchen, so kann man die 
Funktion RINSTR anwenden, die sonst genau die gleichen Parameter hat 
wie INSTR. 

Wir werden die Funktion INSTR wiederholt anwenden, um einzelne 
Zeichen (Trennungszeichen bzw. Delimiter wie z.B. " " und oder 
Worte zu suchen. Dabei wird INSTR zumeist zusammen mit anderen 
Stringfunktionen verwendet. Die Anweisungsfolge 

LET text$="GFA-Basic Interpreter" 

LET such%=INSTR(text$, 11 Int") ergibt 11 

print left$( text$+such%- 1) die ersten 10 Zeichen 

geben z.B. den links vom Suchbegriff "Int" stehenden Text aus. 


print iNSTRtstei ie,s$, t$> In einem String s$ ab stelle nach einem Teil¬ 
string t$ suchen und die Position des ersten 
Auftretens (von links gesehen) angeben. 


PRINT INSTR(6,"WEGWEISER","E") ergibt 8 
PRINT INSTR(1,"WEGWEISER", »E"> ergibt 2 
PRINT INSTR ("WEGWEISER 1 VE") ergibt 2 
PRINT INSTR("WEGWEISER","EIS" ) ergibt 5 
PRINT INSTRC'WEGWEISER»,"EISEN") ergibt 0 

Funktion INSTR zum Suchen eines Teilstrings 


Programm TEXT1 zeigt, wie auch über die Funktion MID$ ein String z$ 
im Gesamtstring e$ gesucht werden kann. Die im Programm verwendete 
Funktion LEN gibt die Länge eines Strings zurück, d.h. die Anzahl der 
Zeichen. Dabei werden auch Leerzeichen mitgezählt. Die Wirkungsweise 
von MID$ (MID$ kann als Funktion und als Befehl auftreten) wird im 
folgenden Bild erklärt: 
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Funktion MID$: 

LET tS = MID$(text$,stelle,anzahl) 

Entnehme einem gegebenen String text$ einen ab stelle beginnenden 
Teilstring mit anzahl Zeichen und weise diesen Teilstring der 
Variablen t$ zu (wenn anzahl nicht angegeben wird, reicht der 
Teilstring von stelle bis zum Ende von text$). 

MlD$("GFA-Bas)C",4,2) ergibt "-B" 

Anweisung MID$: 

MID$(text$,stelle,anzahl) = t$ 

Weise den Teilstring t$ dem gegebenen String text$ zu, d.h. ersetze 
die ab stelle beginnende anzahl Zeichen (bei verschiedenen Längen 
wird stets die kürzere Längenangabe berücksichtigt). 

MIDS("ATARI",2,4)*"pfel" ergibt "Apfel" 

MID$ als Funktion und als Anweisung 


Codierung zu Programm TEXT1: 

REM ====== Programm TEXT1 

PRINT "String in einem Text suchen (ohne INSTR)." 
INPUT »Welcher Text»;e$ 

INPUT "Welchen Teilstring suchen";z$ 

FOR i%=1 TO (LEN(e$)-LEN(z$)+1) 

IF MID$(e$,i%,LEN(z$))=z$ THEN 
LET s%=i% 

ENDIF 
NEXT i% 

IF s%>0 THEN 

PRINT zS;" beginnt an Stelle ";s%;"." 

ELSE 

PRINT "... nicht gefunden. Fehlanzeige." 

ENDIF 

PRINT »Ende.» 

END 
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Ausführung zu Programm TEXT1: 


String in einem Text suchen (ohne INSTR). 
Welcher Text? MwSt inkl. 

Welchen Teilstring suchen? inkl. 
inkl. beginnt an Stelle 6. 

Ende. 


Programm TEXT2 kehrt den Text tl$ zu t2$ um. Dabei wird in einer 
rückwärts laufenden Zählerschleife das letzte, vorletzte, usw. Element von 
tl$ entnommen und an den String t2$ angehängt. Dazu wird vor dem 
Schleifeneintritt ein Leerstring t2$ erzeugt, an den dann wiederholt 
Zeichen angehängt werden. 

Mit der Funktion INP kann man Daten byte-weise von einem Kanal (wie 
der Konsole, der seriellen Schnittstelle oder einer Datei) lesen, je nach 
angegebenem Argument. INP(2) liest ein Zeichen in codierter Form (bei 
den meisten Zeichen als ASCII-Code) von der Konsole, also von der 
Tastatur. Da INP wie INPUT die Programmausführung stoppt, bis ein 
Zeichen angekommen ist, kann man einen INP-Befehl am Programmende 
dazu verwenden, eine Verdeckung der Programmausgabe durch das 
Programmendefenster des Interpreters zu verhindern, bis eine Taste 
betätigt wird. 

Welche Taste vom Benutzer gedrückt wird, um wieder in den Editor zu 
gelangen, ist in diesem Fall völlig ohne Belang. Diese Tatsache drücken 
wir im Programm durch Verwendung des VOID-Befehls aus: Er wird 
einem Funktionsaufruf vorangestellt und bewirkt, daß das Ergebnis der 
Funktion "vergessen" wird und keiner Variablen zugewiesen werden 
braucht. Wie man aus unserem Beispielprogramm sehen kann, gibt es 
tatsächlich Fälle, in denen das Resultat einer Funktion überhaupt nicht 
von Interesse ist. Dann ist die Verwendung von VOID (VOID heißt auf 
Deutsch "Leere") sinnvoll. 

Statt VOID kann auch eine Tilde ("~") angegeben werden. Dies hat die 
gleiche Wirkung, ist aber schneller, da der Rückgabewert der Funktion 
nicht noch in eine Fließkommazahl umgerechnet wird, was ja überflüssig 
ist. 
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Codierung zu Programm TEXT2: 


REM ====== Programm TEXT2 

PRINT "Demonstration zum Umkehren von Text." 


REM ====== Vereinbarungsteil 

1 t1$: Eingegebener Text 
1 t2$: Ausgegebener Umkehrtext 
1 1%: Länge von t1$ bzw. t2$ 

1 i%: Laufvariable fuer Zählerschleife 


REM ====== Anweisungsteil 

INPUT "Welchen Text umkehren ";t1$ 

LET l%=LEN(t1$) !Länge des Strings t1$ 

LET t2$="" !t2$ als Leerstring mit Länge 0 

FOR i%=l% DOWNTO 1 !Von 1% bis 1 hinunterzählen 

LET t2$=t2$+MID$(t1$,i%,1) !Das i%-te Zeichen an t2$ anhängen 
PRINT l%-i%+1;". Schleifendurchlauf: ";t2$ 

NEXT i% !Nächstes Zeichen nehmen 

PRINT 


PRINT t1$;" umgekehrt zu ";t2$ 

VOID INP(2) lauf Tastendruck warten 

END 


Ausführung zu Programm TEXT2: 


Demonstration zum Umkehren von Text. 
Welchen Text umkehren ? Bremen 

1. Schleifendurchlauf: n 

2. Schleifendurchlauf: ne 

3. Schleifendurchlauf: nem 

4. Schleifendurchlauf: neme 

5. Schleifendurchlauf: nemer 

6. Schleifendurchlauf: nemerB 

Bremen umgekehrt zu nemerB 


Programm TEXT3 wendet die Funktion STR$ zur Umwandlung einer 
Zahl z in einen String z$ an, um die einzelnen Ziffern auseinanderziehen 
zu können. 
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Codierung zu Programm TEXT3: 

REM ====== Programm TEXT3 

PRINT "Ziffern auseinanderziehen." 
INPUT "Welche Zahl ";z 
LET z$=STR$(z) 

FOR i%=1 TO LEN(z$) 

PRINT MID$(z$,i%,1);" »; 

NEXT i% 

END 


Ausführungen zu Programm TEXT3: 


Ziffern auseinanderziehen. 
Welche Zahl ? 12564.8 
1 2 5 6 4 .8 


Ziffern auseinanderziehen. 
Welche Zahl ? 2000 
2 0 0 0 


Programm TEXT4 zeigt das Unterstreichen über eine Schleife und über 
die Funktion STRINGS. Die Funktion STRING$(i,x$) liefert einen String, 
der durch die i-malige Aneinderreihung von x$ entsteht (beispielweise 
ergibt STRING$(2,"Ha") "HaHa"). Wenn wie in TEXT4 x$ nur aus einem 
Zeichen besteht, kann statt x$ auch einfach die ASCII-Codezahl des 
Zeichens angegeben werden. STRING(l°/o,45) ist also das gleiche wie 
STRING$(l°/o,"- M ). 

Die Eingabevariable bei der INPUT-Anweisung ist in diesem Programm 
durch ein Komma statt durch ein Semikolon abgetrennt. Dies bewirkt, 
daß kein Fragezeichen ausgegeben wird. 
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Codierung zu Programm TEXT4: 


REM ====== Programm TEXT4 

PRINT "Text unterstreichen auf zwei verschiedene Arten." 

PRINT "Text eingeben:" 

INPUT "" # t$ !Eingabe von t$ ohne Ausgabe eines Fragezeichens 

LET l%=LEN(t$) 

PRINT STRING$(l%,45) 

PRINT t$ 

FOR i%=1 TO 1% 

PRINT 
NEXT i% 

END 


Ausführung zu Programm TEXT4: 


Text unterstreichen auf zwei verschiedene Arten. 
Text eingeben: 

GFA-Basic Wegweiser 


GFA-Basic Wegweiser 


Programm TEXT5 gibt Text rechtsbündig aus. Hierzu wird ein String 1$ 
mit z% Blanks bzw. Leerstellen aufgebaut, an den der Eingabetext e$ 
angehängt wird ("LET g$=l$+e$"). Die Funktion RIGHT$(g$,z%) liefert 
dann die z% rechtsstehenden Zeichen von g$ (die entsprechende Funktion 
LEFT$(g$,z%) würde einen String aus den z% linksstehenden Zeichen von 
g$ liefern). 


Codierung zu Programm TEXT5: 

REM ====== Programm TEXT5 

PRINT "Text mit Leerstellen auffüllen und rechtsbündig ausgeben." 
PRINT "Stellenanzahl bzw. Zeilenbreite?" 

INPUT z% 

FOR i%=1 TO z% 

LET l$=l$+" " 

NEXT i% 

PRINT "Texteingabe (unter ";z%;" Stellen)?" 

INPUT e$ 

LET g$=l$+e$ 

LET a$=RIGHT$(g$,z%) 

PRINT 

PRINT "Textausgabe rechtsbündig:" 

PRINT a$ 

END 
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Ausführung zu Programm TEXT5: 


Text mit Leerstellen auffüllen und rechtsbündig ausgeben. 
Stellenzahl bzw. Zeilenbreite? 

? 30 

Texteingabe (unter 30 Stellen)? 

? San Francisco 

Textausgabe rechtsbündig: 

San Francisco 


Programm TEXT6 erweitert eine Ganzzahl z% - in einen String z$ 
umgewandelt - um führende Nullen. 


Codierung zu Programm TEXT6: 

REM ====== Programm TEXT6 

PRINT "Zahl um führende Nullen erweitern." 

INPUT "Anzahl der Stellen insgesamt";a% 

INPUT "Welche positive ganze Zahl ";z% 

LET z$=STR$(z%) !Zahl in String umwandeln 

LET n$=STRING$(a%,"0") «String aus lauter Nullen erzeugen 

LET z$=RIGHT$(n$+z$,a%) !Nullen voranstellen 

PRINT z$ 

PRINT "Ende." 

END 


Ausführungen zu Programm TEXT6: 


Zahl um führende Nullen erweitern. 
Anzahl der Stellen insgesamt? 3 
Welche positive ganze Zahl ? 7 
007 
Ende. 


Zahl um führende Nullen erweitern 
Anzahl der Stellen insgesamt? 10 
Welche positive ganze Zahl ? 12 
0000000012 
Ende. 
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Programm TEXT7 demonstriert die Funktion LSET, um Text durch 
Blanks auf eine vorgegebene Länge zu erweitern. (Anwendung z.B., um 
eine feste Datensatzlänge einer Datei zu erreichen). Dazu setzen wir die 
Funktion SPACES ein, die einen String aus sovielen Leerzeichen liefert, 
wie im Argument angegeben wird. 

Im Programm wird durch LSET s$ linksbündig in b$ eingefügt. Dabei 
wird der rechte, ungenutzte Teil von b$ automatisch mit Leerzeichen 
aufgefüllt. Es kommt also nicht auf den Inhalt an (bei RSET verhält es 
sich entsprechend). 

Programm TEXT8 geht umgekehrt vor und eliminiert Blanks. Dabei wird 
eine andere Methode der Texteingabe demonstriert: Die zeichenweise 
Eingabe über eine Schleife. Wir verwenden die Anweisung INPUT$(1), 
die jeweils nur ein Zeichen in die Variable e$ übernimmt. 

Problematisch dabei ist, daß bei INPUTS (und bei INP) das eingegebene 
Zeichen und auch der Cursor (die Schreibmarke) nicht auf dem 
Bildschirm erscheint. Die Lösung des ersten Problems ist, jeden 
eingelesenen Buchstaben nochmal extra auszudrucken, die Lösung des 
zweiten ist, das Programm ein bestimmtes Zeichen - wir benutzen ein 
Underscore ("_") - selber an die aktuelle Eingabeposition zeichnen zu 
lassen. Dieser Cursor wird vor der Eingabeschleife einmal und in der 
Schleife hinter jedes neu eingelesene Zeichen gezeichnet. Der Cursor an 
der alten Position wird gelöscht, indem er vom neu eingegebenen Zeichen 
überschrieben wird. Dazu wird vor dem Ausdruck von e$ ein "Backspace" 
(ASCII-Code 8) gedruckt, das die momentane Zeichenposition um eins 
nach links verschiebt. Auf ähnliche Weise wird nach Beendigung der 
Schleife das letzte, übriggebliebene Underscore entfernt. 

Die CHR$(x)-Funktion druckt das Zeichen mit dem ASCII-Code x. Sie 
wird verwendet, um das Backspace zu drucken und um in der EXIT IF 
Anweisung festzustellen, ob die Return-Taste (Code 13) betätigt wurde. 
Das Abschneiden der Leerzeichen hätte auch einfacher durchgeführt 
werden können mittels der GFA-Basic-Funktion TRIM$(s$), die die 
Leerzeichen am Ende und am Anfang von s$ entfernt. 


Codierung zu Programm TEXT7: 


REM ====== Programm TEXT7 

PRINT "String mit Blanks (Leerstellen) erweitern." 
INPUT "Welche Gesamtanzahl von Stellen";a% 


INPUT "Zu erweiternder String 
LET b$=SPACE$(a%) 

LSET b$=s$ 

LET s$=b$ 

PRINT "-->»;s$;"<--" 

PRINT "Ende." 

END 


" # s$ 

!a% Blanks nach b$ 

!s$ links in b$ einsetzen 
!b$ nach sS kopieren 





230 


3 Programmierkurs mit GFA-Basic 


Ausführung zu Programm TEXT7: 


String mit Blanks (Leerstellen) erweitern. 
Welche Gesamtanzahl von Stellen? 20 
Zu erweiternder String Karlsruhe 

--»Karlsruhe <-- 

Ende. 


Codierung zu Programm TEXT8: 


REM ====== Programm TEXT8 

PRINT "Blanks aus String abschneiden." 
PRINT "String mit Blanks am Ende:" 


LET e$="" 

PRINT 

DO 

LET zeichen$=INPUT$(1) 

EXIT IF zeichen$=CHR$(13) 
PRINT CHR$(8);zeichen$;"_"; 
LET e$=e$+Zeichens 
LOOP 

PRINT CHR$(8); M " 

LET s$=e$ 


!Leerstring 
!Cursor 

!Beginn Eingabeschleife 

!Schleife verlassen, wenn RETURN gedrückt 
!Cursor neu setzen 

!Ende Eingabeschleife 
!Cursor löschen 


FOR i%=LEN(s$) DOWNTO 1 
IF RIGHT$(S$,1)=" " THEN 
LET s$=LEFT$(s$,LEN(s$)-1) 
ENDIF 
NEXT i% 

PRINT 

PRINT 

PRINT "-->";s$;"<--" 

PRINT "Ende." 

END 


Ausführung zu Programm TEXT8: 


Blanks aus String abschneiden. 
String mit Blanks am Ende: 
London. England 


--»London, England <-- 
--»London, England<-- 
Ende. 
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Programm TEXT9 sucht über die Funktion INSTR die Positionen von 
Blanks in einem über die Tastatur eingegebenen String eintext$. Das 
Apostroph im Ausdruck "PRINT blankstelle%’" ist nur eine kürzere 
Schreibweise für Es trennt also die gefundenen Positionen um ein 
Leerzeichen voneinander. 


Codierung zu Programm TEXT9: 

REM ====== Programm TEXT9 

PRINT “Position und Anzahl von Blanks in einem Text feststellen." 
PRINT "Welchen Text nach Blanks durchsuchen" 

INPUT eintextS 
LET startstelle%=1 
LET anzahl%=0 

LET blankstelle%=INSTR(startstelle%,eintextS," ") 

PRINT 

PRINT "Positionen der Blanks:" 

WHILE blankstelle%<>0 
PRINT blankstelle%' 

INC anzahl% 

LET startstelle%=blankstelle%+1 

LET blankstelle%=INSTR(startstelle%,eintextS," ") 

WEND 

PRINT 

PRINT "Anzahl der Blanks: ";anzahl% 

PRINT "Ende." 

END 


Ausführung zu Programm TEXT9: 


Position und Anzahl von Blanks in einem Text feststellen. 
Welchen Text nach Blanks durchsuchen 
? Ich hab mein Hert in Heidelberg verloren 

Positionen der Blanks: 

4 8 13 18 21 32 
Anzahl der Blanks: 6 
Ende. 


3.2.3 Datumsangaben verarbeiten 

Angaben zum Datum werden so oft verarbeitet, daß z.B. Datenbank¬ 
systeme einen speziellen Datentyp dafür bereitstellen. Das Programm 
DATUMINT bereitet ein Datum zum Sortieren auf: Das Eingabeformat 
"Tag-Monat-Jahr" wird umgekehrt zum Format "Jahr-Monat-Tag" und 
kann so leicht - in eine Ganzzahl umgewandelt - sortiert werden. 
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Codierung zu Programm DATUMINT: 

REM ====== Programm DATUMINT 

PRINT "Datum aus String in eine Ganzzahl umwandeln zwecks Sortieren." 
INPUT "Datum im Format TT.MM.JJ eingeben";d$ 

LET t$=LEFT$(d$,2) !Tage zuweisen 

LET m$=MID$(d$,4,2) !Monate zuweisen 

LET j$=RIGHT$(d$,2) !Jahre zuweisen 

LET d%=VAL(j$+m$+t$) IDatum als Ganzzahl bzw. INTEGER-Zahl d% 

PRINT "Datum als sortierfähige Ganzzahl: ";d% 

PRINT "Ende." 

END 


Ausführung zu Programm DATUMINT: 


Datum aus String in eine Ganzzahl umwandeln zwecks Sortieren 
Datum im Format TT.MM.JJ eingeben? 09.08.85 
Datum als sortierfähige Ganzzahl: 850809 
Ende. 


Das Programm DATUMPRU überprüft, ob ein Datum innerhalb einer 
vorgegebenen Zeitspanne liegt oder nicht. Dabei wird jedes Datum mit 
der Funktion VAL in einen numerischen Wert umgewandelt, um die 
Abfragen vornehmen zu können. 


Codierung zu Programm DATUMPRU: 


REM ====== Programm DATUMPRU 

PRINT "Prüfen, ob ein Datum in einer bestimmten Zeitspanne liegt." 

■ 

REM ====== Vereinbarungsteil 


• d1$-d3$: 3 String-Variablen für Datumangaben 

• t1%-t3%: 3 Ganzzahl-Variablen für Tage 

1 m1%-m3%: 3 Ganzzahl-Variablen für Monate 

1 j1%-j3%: 3 Ganzzahl-Variablen für Jahre 

■ 

REM ====== Anweisungsteil 

INPUT "Untere Datumgrenze TT.MM.JJ ";d1$ 

INPUT "Obere Datumgrenze TT.MM.JJ ";d2$ 

INPUT "Testdatum TT.MM.JJ ";d3$ 

LET t1%=VAL(LEFT$(d1$,2)) 

LET m1X=VAL(MID$(d1$,4,2)) 

LET j1X=VAL(RIGHT$(d1$,2)) 

LET t2%=VAL(LEFT$(d2$,2)) 

LET m2%=VAL(MID$(d2$,4,2)) 

LET j2%=VAL(RIGHT$(d2$,2)) 

LET t3%=VAL(LEFT$(d3$,2)) 

LET m3%=VAL(MID$(d3$,4,2)) 

LET j3X=VAL(RIGHT$(d3$,2)) 
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IF j3%>j2% THEN 
PRINT "Jahr zu jung." 

ELSEIF j3%<j1% THEN 
PRINT "Jahr zu alt." 

ELSEIF j3%=j2% AND m3%>m2% THEN 
PRINT "Monat zu jung." 

ELSEIF j3%= j1% AND m3%<m1% THEN 
PRINT "Monat zu alt.» 

ELSEIF j3%= j2% AND m3%=m2% AND t3%>t2% THEN 
PRINT »Tag zu jung.» 

ELSEIF j3%=j1% AND m3%=m1% AND t3%<t1% THEN 
PRINT »Tag zu alt.» 

ELSE 

PRINT "Datum liegt innerhalb der Zeitspanne." 
ENDIF 

PRINT »Ende.» 

END 


Ausführungen zu Programm DATUMPRU: 


Prüfen, ob ein Datum in einer bestimmten Zeitspanne liegt. 
Untere Datumsgrenze TT.MM.JJ? 31.01.87 
Obere Datumsgrenze TT.MM.JJ? 12.11.88 
Testdatum TT.MM.JJ? 30.01.87 

Tag zu alt. 

Ende. 


Prüfen, ob ein Datum in einer bestimmten Zeitspanne liegt. 
Untere Datumsgrenze TT.MM.JJ? 31.01.87 
Obere Datumsgrenze TT.MM.JJ? 12.11.88 
Testdatum TT.MM.JJ? 01.04.88 

Datum liegt innerhalb der Zeitspanne. 

Ende. 


3.2.4 Teilstrings aufbereiten 

Aus Gründen der Speicherplatzersparnis speichert man die Sätze einer 
Datei oft als Strings ab, wobei die Satzkomponenten z.B. durch das 
Zeichen voneinander getrennt werden. 

Das nachfolgende Programm ETIKETT geht dieses Problem an und 
demonstriert, wie aus einem Gesamtstring s$ die Teilstrings t$ zu einem 
Drucketikett aufbereitet werden. Unser Beispiel bezieht sich auf eine 
Artikeldatei mit Datensätzen s$, die aus jeweils sechs Datenfeldern 
bestehen. In der Abbruchbedingung der REPEAT-UNTIL-Schleife wird 
mit CHR$(59) und damit mit verglichen (59 ist die ASCII-Codezahl 
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des Semikolons). Man hätte auch UNTIL MID$(s$,nt%,l)=";" schreiben 
können. 

Es wird statt INPUT im Programm die Anweisung LINE INPUT benutzt, 
die auch die Eingabe von Kommata ermöglicht. 


Codierung zu Programm ETIKETT: 


REM ====== Programm ETIKETT 

PRINT "Aus einem String (Datensatz) einzelne TeiIstrings" 

PRINT "(Datenfelder) entnehmen und als Drucketikett ausgeben." 

REM ====== Vereinbarungsteil 

1 ns%: Länge (Anzahl der Zeichen einschließlich ;) von s$ 

1 t$: Teilstring zur Aufnahme eines Datenfeldes 
1 nt%: Länge von t$ 


REM ====== Anweisungsteil 

PRINT "Eingabe eines Datensatzes mit ; (Semikolon) zur Trennung." 
PRINT "Datensatz mit Semikolon abschließen." 


LINE INPUT s$ 

LET ns%=LEN(s$) 

PRINT 

PRINT "Ausgabe als Etikett:" 

WHILE ns%<>0 
LET nt%=0 
REPEAT 
INC nt% 

UNTIL MID$(s$,nt%,1)=CHR$(59) 
LET t$=LEFT$(s$,nt%-1) 

PRINT " ";t$ 

LET ns%=ns%-nt% 

LET s$=RIGHT$(s$,ns%) 

WEND 

PRINT "Ende." 

END 


•.Beginn der äußeren Schleife 

!TeiIstring t$ entnehmen 
!String sS um t$ kürzen 
'.Ende der äußeren Schleife 


Ausführung zu Programm ETIKETT: 


Aus einem String (Datensatz) einzelne Teilstrings 
(Datenfelder) entnehmen und als Drucketikett ausgeben. 
Eingabe eines Datensatzes mit ; (Semikolon) zur Trennung. 
Datensatz mit Semikolon abschließen. 

? 10Q2;Papier;DIN A4;Unliniert;10Q BlattiDM 3.50; 
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Ausgabe als Etikett: 
1002 
Papier 
DIN A4 
Unliniert 
100 Blatt 
DM 3,50 
Ende. 


3.2.5 Stringvergleich mit Wildcard-Zeichen 

Programm WILDCARD veranschaulicht vier wesentliche Möglichkeiten, 
einen String (im Beispiel "Heidelberg") als Ordnungsbegriff mit einem 
weiteren String als Suchbegriff zu vergleichen. Die Wildcard-Zeichen 
und "?" werden oft auch als Joker-Zeichen bezeichnet. 


1. Gesamtvergleich: 

Zwei Strings werden Zeichen für Zeichen in voller Länge verglichen. 

2. Teilvergleich: 

Es wird geprüft, ob der Suchstring (s$) eine Teilmenge des Gesamtstrings 
(o$) darstellt (im Programm wird dies nur für die erste Position des 
Gesamtstrings durchgeführt). 

3. Wildcard 

Das Zeichen "*" ersetzt eine Folge von Zeichen. "H*", "He*" wie "Heide*" 
werden als "gleich" zu "Heidelberg" erkannt. 

4. Wildcard 

Das Zeichen "?" ersetzt ein einzelnes Zeichen. "Heidel?erg" wie 
"?eid??ber?" werden als "gleich" zu "Heidelberg" erkannt. 


Vergleich zweier Strings 
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Codierung zu Programm WILDCARD: 

REM ====== Programm WILDCARD 

PRINT "Demonstration von vier Arten des Stringvergleichs." 

i 

REM ====== Vereinbarungsteil 

1 o$: Ordnungsbegriff # mit dem jeweils verglichen wird 
1 s$: Suchbegriff 
1 no%: Stellenanzahl von o$ 

1 ns%: Stellenanzahl von s$ 

1 s%: Stelle bzw. Merker (Flagge) 

REM ====== Anweisungsteil 

INPUT "Welcher Ordnungsbegriff";o$ 

PRINT 

LET no%=LEN(o$) 

INPUT Erster Suchbegriff (999 für Ende)";s$ 

WH ILE s$<>"999" 

LET ns%=LEN(s$) 

i *** GESAMTVERGLEICH ************************************************* 
LET s1$=LEFT$(s$+SPACE$(no%),no%) 

IF s1$=o$ THEN 

PRINT "Gesamtvergleich: gleich ";o$ 

ENDIF 

i *** teilvergleich *************************************************** 

IF s$=LEFT$(o$,ns%) THEN 
PRINT "Teilvergleich: ";s$;" links in ";o$ 

ENDIF 

i *** VERGLEICH MIT EGAL ****************************************** 
LET s%=INSTR(s$ # "*"> !s% als Stelle sowie Flagge 

IF s%<>0 THEN 

IF LEFT$(s$ # s%-1)=LEFT$(o$ # s%-1) THEN 
PRINT "Vergleich mit Wildcard ";s$;" in ";o$ 

ENDIF 

ENDIF 

i *** VERGLEICH MIT EGAL "?" ****************************************** 
LET s%=1 !s% als Flagge 

FOR i%=1 TO no% 

IF "?"<>MID$(s$ # i% # 1) AND MID$(s$,i%,1)<>MID$(o$,i%,1) THEN 
LET s%=0 
ENDIF 
NEXT i% 

IF s%<>0 THEN 

PRINT "Vergleich mit Wildcard ";s$;" gleich ";o$ 

ENDIF 

INPUT "--> Neuer Suchbegriff (999=Ende)";s$ 

WEND 

PRINT "Ende." 

END 
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Ausführung zu Programm WILDCARD: 


Demonstration von vier Arten des Stringvergleichs. 

Welcher Ordnungsbegriff? Heidelberg 

--> Erster Suchbegriff (999 für Ende)? Heid* 

Vergleich mit Wildcard ■*•: Heid* in Heidelberg 
--> Neuer Suchbegriff (999=Ende)? Heid??berg 
Vergleich mit Wildcard '?': Heid??berg gleich Heidelberg 
--> Neuer Suchbegriff (999=Ende)? Heidel???? 

Vergleich mit Wildcard •?': Heidel???? gleich Heidelberg 

--> Neuer Suchbegriff (999=Ende)? He 

Teilvergleich: He links in Heidelberg 

--> Neuer Suchbegriff (999=Ende)? Heidelberg 

Gesamtvergleich: Heidelberg gleich Heidelberg 

Teilvergleich: Heidelberg links in Heidelberg 

Vergleich mit Wildcard •?': Heidelberg gleich Heidelberg 

--> Neuer Suchbegriff (999=Ende)? Heidelberg 3 

Gesamtvergleich: Heidelberg 3 gleich Heidelberg 

Vergleich mit Wildcard •?': Heidelberg 3 gleich Heidelberg 

--> Neuer Suchbegriff (999=Ende>? Nina 

--> Neuer Suchbegriff (999=Ende)? 999 

Ende. 


3.2.6 Blocksatz erstellen 

Blocksatz als Textdarstellung mit linkem und rechtem Randausgleich wird 
vom Programm BLOCKSAT demonstriert. Dabei wird ein Eingabestring 
ein$ der Länge le°/o durch Hinzufügen von Leerzeichen bzw. Blanks zu 
einem Ausgabestring aus$ der vorgegebenen Länge la°/o erweitert. Mehrere 
Strings aus$ ergeben dann eine Textseite mit rechtem Randausgleich bei 
einer Zeilenlänge la%. 


Codierung zu Programm BLOCKSAT: 


REM ====== Programm BLOCKSAT 

PRINT "Demonstration: Automatischer Randausgleich." 

i 

REM ====== Vereinbarungsteil 

1 ein$, le%: Eingabezeile, Länge von ein$ 

1 aus$, la%: Ausgabezeile, Länge von aus$ 

• be%: Anzahl von Blanks in ein$ 

• ba%: Anzahl von Blanks in aus$ hinzuzufügen 

• bv%: Anzahl von Blanks gerade verarbeitet 

1 z$: Zeichen zum Hinzufügen 
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REM ====== Anweisungsteil 

INPUT "Eingabezeile";ein$ 

LET le%=LEN(ein$) 

INPUT "Länge der Ausgabezeile";la% 

PRINT 

LET be%=0 

LET ba%=la%-le% 


LET aus$="" 

FOR z%=1 TO le% 

IF MID$(ein$,z%,1)=" " THEN 
INC be% 

ENDIF 
NEXT z% 

FOR z%=1 TO le% 

LET z$=MID$(ein$,z%,1) 

LET aus$=aus$+z$ 

IF z$=» " THEN 
LET bv%=INT(ba%/be%) 

LET aus$=aus$+SPACE$( bv%) 
LET ba%=ba%-bv% 

DEC be% 

ENDIF 
NEXT z% 

PRINT STRING$<6,"1234567890") 
PRINT ein$ 

PRINT aus$ 

PRINT STRING$(6,"1234567890") 
END 


!Blanks-Anzahl in Eingabezeile 


!Ausgabezeile zeichenweise aufbauen 
!z%-tes Zeichen in ein$ nehmen 
!z%-tes Zeichen in aus$ anfügen 


Ausführung zu Programm BLOCKSAT: 


Demonstration: Automatischer Randausgleich. 

Eingabezeile? DER ALTE MANN UND DAS MEER 
Lange der Ausgabezeile? 36 

123456789012345678901234567890123456789012345678901234567890 

DER ALTE MANN UND DAS MEER 

DER ALTE MANN UND DAS MEER 

123456789012345678901234567890123456789012345678901234567890 


3.2.7 Verschlüsselung zwecks Datenschutz 

In Klartext gespeicherte Daten kann jeder lesen, verschlüsselte Daten 
hingegen zumindest nicht so leicht. Die Kryptographie als Lehre von der 
Textverschlüsselung kennt drei wichtige Verfahren: die Umcodierung, den 
Versatz und die Ersetzung. 
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1. Bei der Umcodierung wird Information in einen anderen Code wie 
z.B. den ASCII umgeschrieben. 

2. Bei den Versatz-Verfahren wird das zugrundeliegende Alphabet 
versetzt und dadurch umgestellt. Ein Beispiel haben wir mit dem 
"Von hinten nach vorne schreiben" in Programm TEXT2 (Abschnitt 
3.2.2) bereits vorgestellt. 

3. Bei der Ersetzung wird das zugrundeliegende Alphabet durch ein 
anderes ersetzt. 

Drei Verfahren zur Textverschlüsselung 


Unser folgendes Programm GEHEIM geht nach der "Ersetzung" vor und 
wendet dazu ein einfaches auf Julius Cäsar zurückgehendes Verfahren an. 


Ausführungen zu Programm GEHEIM: 


Textverschlüsselung nach dem Verfahren 'Ersetzung Cäsar 1 . 
Eingabetext? Antwerpen 
Schlüssel? 2 

1. Verschlüsselung: 

Ausgabetext: 

Cpvygtrgp 

2. Entschlüsselung: 

Eingabetext jetzt: 

Cpvygtrgp 

Ausgabetext wiederum: 

Antwerpen 

Ende. 


Textverschlüsselung nach dem Verfahren 'Ersetzung Cäsar 1 . 
Eingabetext? 1298560 DM BILANZSUMME 
Schlüssel? 10 

1. Verschlüsselung: 

Ausgabetext: 

;<CB?3:*NW*lSVKXd]_WW0 

2. Entschlüsselung: 

Eingabetext jetzt: 

;<CB?3:*NW*LSVKXd]_WUO 
Ausgabetext wiederum: 

1298560 DM BILANZSUMME 
Ende. 
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Wie geht man bei diesem "Cäsar-Verfahren" vor? 

Jedes Zeichen des Klartextes e$ wird der Reihe nach durch das s%-te 
nachfolgende Zeichen ersetzt. Dabei geben die Codezahlen des ASCII die 
Reihenfolge vor. Die ASC-Funktion stellt mit dem Aufruf 
ASC(MID$(e$,i%,l)) die Codezahl des i%-ten Zeichens im Klartext e$ zur 
Verfügung. Addieren wir s°/o hinzu, gelangen wir zur Codezahl des 
verschlüsselten Zeichens. 

Die beiden Ausführungen zu Programm GEHEIM zeigen, wie der zu 
verschlüsselnde Text um 2 bzw. 10 Stellen im ASCII versetzt wird. Dabei 
wird z.B. "A" bzw. CHR$(65) zu "C" bzw. CHR$(67). 

Die Funktion ersetzung$ macht im Programm die eigentliche Arbeit: Seine 
Parameter sind der zu verändernde Text (der beim Unterprogrammaufruf 
an die lokale Variable text$ übergeben wird) und der Codierungsschlüssel 
(der in die lokale Variable s% kommt). In einer Zählerschleife wird text$ 
Zeichen für Zeichen durchgegangen und verschlüsselt bzw. beim zweiten 
Aufruf mit -s% entschlüsselt. Dabei wird geprüft, ob der geänderte 
ASCII-Code den Bereich von 0 bis 127 verläßt, in dem er definiert ist, 
und gegebenenfalls durch Addition bzw. Subtraktion von 128 korrigiert. 
Das Ergebnis der Verschlüsselung ist dann der Rückgabewert der 
Funktion. 


Anmerkung: Auf dem Atari sind auch die ASCII-Codezahlen von 128 bis 
255 belegt, und zwar mit Sonderzeichen. Davon kann man sich durch ein 
Blick in den Anhang des GFA-Basic Handbuchs oder durch ein kleines 
Programm, das mit CHR$ in einer FOR-NEXT-Schleife die Zeichen von 
128 bis 255 audruckt, überzeugen. 

Codierung zu Programm GEHEIM: 


REM ====== Programm GEHEIM 

PRINT "Textverschlüsselung nach dem Verfahren 'Ersetzung Cäsar 1 ." 


REM ====== Vereinbarungstell 

' e$,a$: Eingabetext und verschlüsselter Ausgabetext 
' s%: Ganzzahliger Schlüssel zum Ersetzen 


REM ====== Anweisungsteil 

INPUT "Eingabetext";e$ 

INPUT "Schlüssel";s% 

PRINT 

PRINT "1. Verschlüsselung:" 
LET a$=3ersetzung$(e$,s%) 
PRINT "Ausgabetext:" 

PRINT a$ 

PRINT 

PRINT "2. Entschlüsselung:" 
PRINT "Eingabetext jetzt:" 
PRINT a$ 

PRINT "Ausgabetext wiederum:" 
PRINT 3ersetzung$(a$,-s%) 
PRINT "Ende." 

END 


i *** Beginn Unterprogramm Ersetzung *** 
FUNCTION ersetzung$(text$,s%) 

LOCAL a$,i%,hilf% 

LET a$="" 

FOR i%=1 TO LEN(textS) 

LET hilf%=ASC(MID$(text$,i%,1))+s% 

IF hilf%>127 THEN 
LET hilf%=hilf%-128 
ENDIF 

IF hilf%<0 THEN 
LET hilf%=hilf%+128 
ENDIF 

LET a$=a$+CHR$(hilf%) 

NEXT i% 

RETURN a$ 

ENDFUNC 

• *** Ende Unterprogramm Ersetzung ***** 
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Mit der Verarbeitung von Arrays wenden wir uns einer komplexen 
Datenstruktur zu. Ein Array wird auch als Feld, Tabelle, Matrix oder 
Vektor bezeichnet. 


3.3.1 Arrays im Überblick 

In Abschnitt 1.3.2.2 hatten wir als wichtige Datenstruktur das Array ken¬ 
nengelernt. Ein Array können wir uns als Regal mit mehreren Schub¬ 
fächern - den Elementen des Arrays - vorstellen. Das Array m hat im 
folgenden Beispiel fünf Schubfächer bzw. Elemente, wobei im Fach 3 die 
Zahl 77 abgelegt ist. 


m(0) m(l) m(2) m(3) m(4) = Fach 0, 1, 2, 3, 4 von m 


E_ 

9 

1 

I 77 

I 2,5 


Inhalt 12, 9, 1, 77, 2.5 


Arrays können - ebenso wie einfache Variablen - durch die Typen¬ 
bezeichnungen 

- %,&,| Ganzzahl 

- ! Boolean (Wahrheitswerte) 

- $ String 

den verschiedenen Datentypen zugeordnet werden (vgl. Abschnitt 2.4.1.1): 
Je nach Inhalt der Fächer gibt es das Real,- (keine Typenbezeichnung 
oder Postfix #) Ganzzahl-, Boolean- und String-Array. Beim Boolean- 
Array ist noch eine Besonderheit zu beachten: Für das Abspeichern eines 
Elements wird statt einem Byte nur ein Bit Speicherplatz benötigt. 

Es ist auch möglich, die Schubfächer (Elemente) des Arrays weiter zu 
unterteilen, jedes Element sozusagen wieder als Array aufzufassen. Man 
spricht dann, im Gegensatz zum obigen eindimensionalen Array m, von 
mehrdimensionalen Arrays. 




3.3 Arrays (Felder, Tabellen) 
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Ein zweidimensionales Array läßt sich gut als Tabelle oder Matrix dar¬ 
stellen. Betrachten wir als Beispiel das Array m%(3,4). Der erste Index 
gibt die Nummer der Zeile an, der zweite die Nummer der Spalte: 


m% 

0 

1 

2 

3 

4 

0 

m%(0,0) 

m%(0,l) 

m%(0,2) 

m%(0,3) 

m%(0,4) 

1 

m%(l,0) 

m%(l,l) 

m%(l,2) 

m%(l,3) 

m%(l,4) 

2 

m%(2,0) 

m%(2,l) 

m%(2,2) 

m%(2,3) 

m%(2,4) 

3 

m%(3,0) 

m%(3,l) 

m%(3,2) 

m%(3,3) 

m%(3,4) 


Man kann mit Array-Elementen fast genauso umgehen wie mit den ent¬ 
sprechenden einfachen Variablen. Will man beispielsweise dem Element in 
der zweiten Zeile und dritten Spalte einen Wert x% zuweisen, so schreibt 
man: 


LET iK%(2,3)=x% 

Allerdings ist es nicht möglich, Arrays als lokale Variablen in Unter¬ 
programmen zu definieren. Außerdem können sie nur in Form von VAR- 
Parametern übergeben werden. 


Der Array-Typ, die Dimension und die Größe der Indexbereiche muß vor 
dem ersten Benutzen der Variablen durch eine DIM-Anweisung festgelegt 
werden. 

Ein Beispiel: DIM m$(4) richtet ein Array mit fünf Elementen (Index¬ 
bereich geht von 0 bis 4) zur späteren Aufnahme von Strings ein, wobei 
die Fächer mit m$(0), m$(l), m$(2), m$(3), m$(4) durchnumeriert sind. 


oim m! (1,2,3) DIM vereinbart für Variable m!: 

* -Bool’sche Variablen als Datentyp 

Drei Dimensionen : 

-erster Index geht von 0 bis 1 

-zweiter Index geht von 0 bis 2 

- dritter Index geht von 0 bis 3 

Insgesamt 2*3*4 = 24 Elemente 

(entspricht einem Speicherplatzbedarf von 3 Bytes) 


DIM-Anweisung zur Vereinbarung von Arrays an einem Beispiel 
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3.3.2 Eindimensionale Arrays 


3.3.2.1 Numerisches Array zur Speicherung von Zahlen 

Ein eindimensionales Array kann man sich waagrecht als Zeile oder 
senkrecht als Spalte angeordnet vorstellen, also immer in eine 
Richtung/Dimension ausgedehnt. Man spricht dabei auch von Feld, 
Vektor oder Liste. 

Das Programm LAGREGAL veranschaulicht uns diese Datenstruktur: Mit 
DIM r(7) vereinbaren wir ein "Regal" mit acht "Regalfächern" 0, 1, ..., 7. 
Das 0. Fach lassen wir unberücksichtigt (man reserviert es - wie später im 
Programm ABTABELL gezeigt wird - meist für ganz besondere Eintra¬ 
gungen). Über die Eingabeschleife FOR i°/o=l TO 7...NEXT i% geben wir 
mittels INPUT r(i%) der Reihe nach sieben Zahlen in die Fächer 1, 2, ..., 
7 ein; dies können z.B. die Absatzmengen an den einzelnen Wochentagen 
sein. 


Codierung zu Programm LAGREGAL: 


REH ====== Programm LAGREGAL 

PRINT "Eindimensionales Array (Lagerregal)." 

I 

REM ====== Vereinbarungsteil 

DIM r(7) !ARRAY(1..7) als Regal 
1 i%: Lauf- bzw. Indexvariable 

• m: Summe der 7 Fächer 

i 

REM ====== Anweisungsteil 


PRINT 

PRINT "Eingabe in Regalfächer:" 
FOR i%=1 TO 7 

PRINT "Menge für Fach ";i%; 
INPUT r(i%) 

NEXT i% 

PRINT 

PRINT "Fach:"/'Menge:" 

FOR i%=1 TO 7 
PRINT i%,r(i%) 

LET m=m+r(i%) 

NEXT i% 

PRINT "Summe:",m 
END 
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Ausführung zu Programm LAGREGAL: 


Eindimensionales Array (Lagerregal). 

Eingabe in Regalfächer: 

Menge für Fach 1? 12 
Menge für Fach 2? 23 
Menge für Fach 3? 11 
Menge für Fach 4? 88 
Menge für Fach 5? £4 
Menge für Fach 6? 17 
Menge für Fach 7? 5 


Fach: 

1 

2 

3 

4 

5 

6 
7 

Summe: 


Menge: 
12 

23 
11 
88 

24 
17 
5 

180 


Die Variable i°/o bezeichnet man als indizierende Variable oder 
/«dfexvariable, da sie das jeweilige Element des Arrays r anzeigt. r(i%) 
bedeutet: i°/o-te Stelle von r bzw. i°/o-tes Element von r bzw. r an der 
Stelle i%. i% ist zugleich auch Laufvariable der Zählerschleife 
FOR i°/o=l TO 7. 

Über die zweite FOR-NEXT-Schleife wird als Übersicht die jeweilige 
Fachnummer (Index) samt der im Fach abgelegten Menge (Inhalt des 
Array-Elements) ausgegeben, wobei in m die Summe aller Fachinhalte 
gebildet wird. 

Das Komma in der PRINT-Anweisung rückt die Ausgabeposition auf die 
nächste Tabulatorzone vor (das sind die Spalten 17, 33, 49 usw.). Wie aus 
dem Ausführungsbeispiel ersichtlich, läßt sich diese Art der Ausgabe gut 
zur Formatierung einfacher Tabellen verwenden. 
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Index: 

r(0) 

r(l) 

r(2) 

r(3) 

r(4) 

r(5) 

r(6) 

r(7) 

Wert: 

0 

12 

23 

11 

88 

24 

17 1 

L±J 


leer Fächer 1-7 mit je einer Zahl als Wert (Inhalt) 


- D1H r(7) 

- LET r(2)=23 

- PRINT r(4) 

- INPUT r(6) 

- INPUT r(iX) 

- LET m=m+r(z) 


Reserviere acht Fächer für ein Array r. 

Weise die Zahl 23 dem 2. Fach zu. 

Gib die 88 als Wert des 4. Faches aus. 

Weise die Tastatureingabe dem 6. Fach zu. 
Weise die Tastatureingabe dem i%-ten Fach zu. 
Wenn i%=3, dann dem 3. Fach. 

Erhöhe m um den Wert des z-ten Faches. 


Eindimensionales Array bzw. Vektor r() als Beispiel 


Das Programm UMKEHRZA verarbeitet zwei numerische Arrays: Zum 
einen das Array zahl%, in das wir über INPUT fünf Zahlen eingeben. 
Zum anderen das Array umkehrzahl%, in dem das Programm die Zahlen 
von zahl% über die LET-Anweisung in umgekehrter Reihenfolge 
abspeichert. 

Wir verwenden zwei Lauf variablen: h% mit den Werten 1, 2, 3, 4, 5 als 
Index im Array umkehrzahl% und i% mit den Werten 5, 4, 3, 2, 1 zum 
Indizieren im anderen Array zahl%. h% wird durch INC jeweils um 1 
erhöht und i% durch die FOR-NEXT-Schleife jeweils um 1 vermindert. 



LET hX=1 

FOR iX=5 DOWNTO 1 


2 

-— 

1 

5 

LET umkehrzahlX(hX)=zahlX(iX) 

4 

7 

INC HX 

7 

4 


5 

1 


2 


next ix 


Array zahl% Array umkehrzahl% 


Werte eines Arrays umkehren mit Hilfe des Programms UMKEHRZA 
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Codierung zu Programm UMKEHRZA: 

REH ====== Programm UMKEHRZA 

PRINT "Eine Zahl in ein Array eingeben und ziffernweise umkehren." 

■ 

REM ====== Vereinbarungsteil 

DIM zahl%(5) leingegebene Zahl mit 5 Ziffern 

DIM umkehrza%(5) !umgekehrte Zahl 
1 i%,h%: Lauf-, Hilfsvariable 

■ 

REM ====== Anweisungsteil 

PRINT "5 Ziffern einzeln eintippen:" !EINGABE 

FOR i%=1 TO 5 
INPUT zahl%(i%) 

NEXT i% 

LET h%=1 !UMKEHREN 

FOR i%=5 DOWNTO 1 

LET umkehrzahl%(h%)=zahl%(i%) 

INC h% 

NEXT i% 

PRINT »Eingegebene Zahl:" 

FOR i%=1 TO 5 
PRINT zahl%(i%); 

NEXT i% 

PRINT 

PRINT »Umgekehrte Zahl:» !AUSGABE 

FOR i%=1 TO 5 
PRINT umkehrzahl%(i%); 

NEXT i% 

PRINT 

PRINT »Ende.» 

END 


Ausführung zu Programm UMKEHRZA: 


Eine Zahl in ein Array eingeben und ziffernweise umkehren. 
5 Ziffern einzeln eintippen: 

? 2 
? 5 

? Z 
? i 
? 1 

Eingegebene Zahl: 

25741 


Umgekehrte Zahl: 

14752 

Ende. 
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3.3.2.2 Besondere Befehle und Funktionen für Arrays 

Wir sind bislang davon ausgegangen, daß z.B. durch die Vereinbarung 
DIM m(4) ein Array mit fünf Elementen angelegt wird. Durch die 
Angabe der Anweisung 

OPTION BASE 1 

können wir die Platznummer 1 als niedrigsten Index festlegen (für alle 
Arrays im Programm). Bei Nichtverwendung dieser Anweisung gilt 
automatisch OPTION BASE 0 als Standardwert. 


0 als kleinster Index: m(0) m(l) m(2) m(3) m(4) 

OPTION BASE 0 I-1-1-1-1- 

DIM *><4) 1_1_I_I_I_ 

1 als kleinster Index: m(l) m(2) m(3) m(4) 

OPTION BASE 1 I-1-1-1- 

DIM m(4) |_|_|_|_ 

Anweisungen OPTION BASE und DIM vereinbaren Arrays 


Mit Ausnahme des Boolean-Arrays belegt ein Array-Element im 
Anwenderspeicher ebensoviel Speicherplatz wie eine einfache Variable 
desselben Typs. Große Arrays, die wohlmöglich noch über zahlreiche 
Dimensionen verfügen, können deshalb unter Umständen erhebliche 
Mengen Speicherplatz schlucken. Dies wird insbesondere dann problema¬ 
tisch, wenn während eines Programmablaufs ein altes Array nicht mehr 
benötigt wird, für die Dimensionierung eines neuen Arrays aber nicht 
mehr ausreichend Speicherplatz zur Verfügung steht. Mit Hilfe des 
Befehls 


ERASE Arrayname1(),Arrayname2(),... 


kann der Speicherplatz für nicht mehr benötigte Arrays wieder für andere 
Aufgaben freigegeben werden. Außerdem kann nach Verwendung dieses 
Befehls das Array neu mit anderen Werten dimensioniert werden. 

Mit dem Befehl 


ARRAYFILL Arrayname(),n 
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kann ein numerisches Array mit einem beliebigen Wert n gefüllt werden. 
Wird für n Null gewählt, so wird das Array gelöscht und in den Zustand 
gebracht, den es vor der ersten Benutzung hatte. 

Die Befehle 

INSERT Arrayname(pos)=Wert und DELETE Arrayname(pos) 

erlauben es, ein neues Element in ein Array an der Postion pos 
einzufügen bzw. ein altes zu löschen. Dabei werden - im Gegensatz zur 
einfachen Zuweisung - bei INSERT alle Elemente mit größerem Index als 
pos um eins nach oben verschoben (das oberste Element geht verloren) 
bzw. bei DELETE um eins nach unten verschoben (das oberste Element 
wird Null). Diese beiden Befehle sind dann sehr nützlich, wenn man in 
einem Array Daten sortiert abgespeichert hat und nachträglich Einträge 
löschen oder einfügen will. 

Schließlich gibt es noch die Funktion 

DIM?(ArraynameO) , 

die die Anzahl der Feldelemente in einem Array zurückliefert. Würde 
beispielsweise das Integer-Array m°/o(l,2,3) in einem Programm dimen¬ 
sioniert werden, ergäbe PRINT DIM?(m%()) den Wert 24 (=2*3*4). 


3.3.2.3 String-Array zur Speicherung von Text 

Das folgende Programm demonstriert die Arbeitsweise von eindimen¬ 
sionalen String-Arrays. 

In den Fächern der String-Arrays d$ und f$ werden keine Zahlen 
aufbewahrt (wie im Real-Array m des Programms LAGREGAL), sondern 
Vokabeln als Texte. Außerdem steht vor der Ausführung des Programms 
noch gar nicht fest, wie groß die Anzahl der Fächer (der Indexbereich) 
sein wird, da in der Anweisung DIM d$(a%) eine Variable vorkommt, die 
erst über die Anweisung INPUT a% in der vorhergehenden Zeile 
festgelegt wird. In der Ausführung sind es a%=3 Fächer für je drei 
deutsche und französische Vokabeln (die Fächer mit dem Index 0 bleiben 
leer). Man bezeichnet diese Art der Dimensionierung als dynamisch. 
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Dimensionierung eines Arrays 

I-" L “- 1 . 

dynamisch statisch 

INPUT "Anzahl";a% DIM d$(40) 

DIH d$CaX) 


1,2,3,4,5.a% 


Array d$(a%) mit a% Elementen 
vereinbart, wobei a% während 
des Programmlaufs festgelegt 
wird. 


1,2,3,4,5.40 


Array d$(40) mit konstant 40 
Elementen vereinbart (bei jedem 
RUN gleich). 


Dynamische und statische Dimensionierung von Arrays 


Die dynamische Dimensionierung bezeichnet man häufig auch als 
halbdynamische Vereinbarung, da vor Beginn der Verarbeitung des Arrays 
die Elementzahl des Arrays festliegen muß, d.h. das Array - einmal 
dimensioniert - auch bei der variablen Größenwahl letztendlich statisch 
ist. 

Das Programm VOKABELD (ein Drillprogramm zum Erlernen von 
Vokabeln) stellt ein elementares Beispiel zur Methode der parallelen 
Arrays dar: Die Anordnung der Elemente der beiden Arrays d$() und f$() 
können wir durch zwei nebeneinanderstehende Spalten darstellen. Dabei 
gehören die waagrechten Elemente jeweils zusammen (also die Elemente 
mit gleichen Indexnummern). Diese Methode der parallelen Arrays findet 
sich oft bei der tabellenförmigen Abspeicherung von Daten (Umsatz¬ 
tabelle, Adreßverzeichnis usw.). 
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Array d$: 


Array f$: 

(1) Mann 


(1) Homme 

(2) Frau—- 

— Element d$(i) zu Element fS(i) — 

(2) Femme 

(3) Kind 


(3) Enfant 

(4), (5), ... 


(4), (5), ... 

(n) Mond 

Gleiche Anzahl von n Elementen 

(n) Lune 


Methode der parallelen Arrays 


Der Algorithmus von VOKABELD ist sehr einfach und im Hinblick auf 
Zufallsauswahl von Vokabeln, Antwortanalyse für Fehlerhinweise, 
Ablaufmodifikation je nach Antworteingaben (lernfähiges Programm) wie 
Vokabelspeicherung (Diskettendatei) sicher erweiterungsbedürftig. 
Vielleicht versuchen Sie es einmal mit einer Erweiterung ? 
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Codierung zu Programm VOKABELD: 


REM ====== Programm VOKABELD 

PRINT "Drill Französisch - Deutsch." 

i 

REM ====== Vereinbarungsteil 

INPUT "Anzahl der Vokabeln";a% 

DIM d$(a%) IString-Array für Deutsch (D) 

DIM f$(a%) IString-Array für Franz. (F) 

1 a$: Jeweilige Antwort 

i 

REM ====== Anweisungsteil 


PRINT "Paarweise tippen: D,F" 

FOR i%=1 TO a% 

INPUT d$(i%),f$(i%) 

NEXT i% 

PRINT 

PRINT "Beginn der Übung:" 

FOR i%=1 TO a% 

PRINT d$(i%);" heißt »; 

INPUT a$ 

IF a$=f$(i%) THEN 
PRINT "Gut." 

ELSE 

PRINT "Falsch. ";d$(i%);" heißt »;f$(i%) 
ENDIF 
NEXT i% 

PRINT "Ende." 

END 


Ausführung zu Programm VOKABELD: 


Drill Französisch - Deutsch. 
Anzahl der Vokabeln? 3 
Paarweise tippen: D,F 
? Mann.Homme 
? Frau,Femme 
? Kind.Enfant 

Beginn der Übung: 

Mann he\ßt ? Homme 
Gut. 

Frau hei/9t ? Feme 
Falsch. Frau hei/Jt Femme 
Kind hei/?t ? L'Enfant 
Falsch. Kind hei/?t Enfant 
Ende. 
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3.3.2.4 Array als Stapelspeicher 

Das Programm STACK demonstriert die Verwendung eines Arrays als 
Stapelspeicher (engl. Stack). Was hat man sich unter einem Stapelspeicher 
vorzustellen? Ein Vergleich soll uns den Grund für diese Begriffsbildung 
verdeutlichen. Bei einem Tablettenröhrchen wird stets auf die am 
weitesten oben liegende Tablette zuerst zugegriffen. Das liegt daran, daß 
diese Tablette als Letzte ins Röhrchen gefüllt wurde. 

Entsprechend wird bei einem als Stack organisierten Array nur auf das 
jeweils zuletzt gespeicherte Datenelement zugegriffen. Das Speichern 
(bzw. Einfüllen der Tabletten) läuft also in umgekehrter Reihenfolge ab 
wie das Zugreifen (bzw. Entnehmen der Tabletten). Aus diesem Grunde 
bezeichnet man den Stack häufig auch als LIFO-Speicher (Last In First 
Out: Zuletzt hinein, zuerst heraus). 

Demzufolge gibt es nur zwei Befehle zum Verändern des Stackinhalts: 
"Push x" (bringt das Element x auf den Stack) und "Pop x" (entfernt das 
oberste Element vom Stack und weist es x zu). Diese beiden Befehle sind 
im Programm STACK durch Unterprogramme realisiert. 

Stacks werden u.a. auch zur internen Speicherorganisation von Variablen 
in GFA-Basic verwendet, z.B. für die Speicherung von lokalen Variablen 
bei Unterprogrammaufrufen. 

In STACK verarbeiten wir das Array stack$, das mit 60 Elementen 
dimensioniert wird, als Stapelspeicher. Die Variable stackpointer% gibt an, 
wie weit der Stapel schon aufgebaut ist: Es zeigt stets auf das Element, 
das beim nächsten push beschrieben werden wird. Am Anfang des 
Programms ist der Stack leer, deshalb wird stackpointer% auf eins gesetzt. 
Durch Betätigen einer Taste kann der Stack um ein Element aufgebaut 
werden, RETURN entfernt ein Element. Das Programm druckt bei jeder 
Änderung den neuen Stackinhalt auf den Bildschirm, wobei es dafür 
Sorge trägt, daß die Grenzen des Stacks nicht über- bzw. unterschritten 
werden. Mit der Escape-Taste kann man das Programm verlassen. 
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Codierung zu Programm STACK: 

REM ====== Programm STACK 

PRINT "Demonstration zur Verwendung eines Arrays als Stack" 

PRINT "- Das Drücken einer Buchstabentaste bringt diesen Buchstaben" 

PRINT " auf den Stack." 

PRINT "- Das Drücken von RETURN entfernt den letzten Buchstaben vom Stack." 
PRINT "- Das Drücken von ESC beendet das Programm" 

PRINT 

i 

REM ====== Vereinbarungsteil 

LET stackpointer%=1 !Anfangswert des Stackzeigers 

DIM stack$(60) !Stapelspeicher als Array mit 60 Elementen (Buchstaben) 

1 t$: Tastatureingabe 

1 i%: Laufvariable 

i 

REM ====== Anweisungsteil 

DO 

PRINT "STACK: »; 

IF stackpointer%>1 THEN 
FOR i%=1 TO stackpointer%-1 
PRINT stack$(i%); 

NEXT i% 

ENDIF 
PRINT 

LET t$=INPUT$(1) 

EXIT IF t$=CHR$(27) 

IF t$=CHR$(13) THEN 
pop 
ELSE 

push(t$) 

ENDIF 
PRINT 
LOOP 
END 

PROCEDURE push(xS) 

IF stackpointer%<=60 THEN 
LET stack$(stackpointer%)=x$ 

INC stackpointer% 

PRINT "PUSH"*x$ 

ELSE 

PRINT »Stack voll!!" 

ENDIF 
RETURN 

i 

PROCEDURE pop 

IF stackpointer%>1 THEN 
DEC stackpointer% 

PRINT "POP" 1 stack$(stackpointer%) 

ELSE 

PRINT "Stack leer!!» 

ENDIF 
RETURN 


{momentanen Stackinhalt ausdrucken 


•Schleife verlassen, wenn ESC gedrückt 
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Ausführung zu Programm STACK: 


Demonstration zur Verwendung eines Arrays als Stack 

- Das Drücken einer Buchstabentaste bringt diesen Buchstaben 
auf den Stack. 

- Das Drücken von RETURN entfernt den letzten Buchstaben vom Stack. 

- Das Drücken von ESC beendet das Programm 

STACK: 

PUSH A 

STACK: A 
PUSH t 

STACK: At 
PUSH a 

STACK: Ata 
PUSH r 

STACK: Atar 
PUSH i 

STACK: Atari 
POP i 

STACK: Atar 
POP r 

STACK: Ata 
POP a 

STACK: At 
PUSH o 

STACK: Ato 
PUSH m 

STACK: Atom 


3.3.3 Zwei- und mehrdimensionale Arrays 

Ein zweidimensionales Array kann man als Tabelle mit Zeilen und Spalten 
auffassen. Am Beispiel des durch DIM r(z%,s%) dynamisch vereinbarten 
Arrays wollen wir im Programm ABTABELL (für Absatztabelle) diese 
Datenstruktur näher betrachten. 

Das Array r kann man sich als Regalschrank vorstellen zur Aufnahme der 
Absatzmengen von fünf Kunden (Zeilen 1 bis 5) in den vier Quartalen 
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(Spalten 1 bis 4). So hat der Kunde 5 im ersten Jahresquartal 50 Stück 
gekauft und der Kunde 3 im dritten Jahresquartal 90 Stück. 

Die Tastatureingabe der 5*4=20 Absatzmengen vollzieht sich über zwei 
geschachtelte Zählerschleifen. 


— FO« iX=1 TO zX 

: F0R jX=1 TO sX 
INPUT r(iX.jX) 
NEXT jX 
— NEXT IX 


Äußere Schleife "Kunden 1,2,3,4,5" 
Innere Schleife "Quartale 1,2,3.4" 
Eingabe nach Fach Zeile i%, Spalte j% 
Innere Schleife beenden 
Äußere Schleife beenden 


Typisch bei zweidimensionalen Arrays: Schleifenschachtelung 


Jeder Durchlauf der äußeren Schleife FOR i%=l TO z% (einmal für jeden 
Kunden) bewirkt ein viermaliges Durchlaufen der inneren Schleife. Das 
Verarbeiten von zweidimensionalen Tabellen führt sehr häufig zur 
Schleifenschachtelung. 


Codierung zu ABTABELL: 

REM ====== Programm ABTABELL 

PRINT "Tabellenverarbeitung: Absatztabelle Kunde/Vierteljahr" 
PRINT "als zweidimensionales Array." 

i 

REM ====== Vereinbarungsteil 

INPUT "Anzahl der Zeilen (waagerecht)";z% 

INPUT "Anzahl der Spalten (senkrecht)";s% 

DIM r(z% # s%) IRegal als Array dynamisch dimensioniert 
' a$: Jeweilige Antwort 

■ 

REM ====== Anweisungsteil 

PRINT 

PRINT "Eingabe zeilenweise:" 

FOR iX=1 TO zX 

PRINT "Nächste Zeile, nächster Kunde:" 

FOR j%=1 TO sX 

PRINT "Kunde ";i%;" , Vierteljahr ";j%' 

INPUT r(i%,j%) 

NEXT jX 
NEXT iX 

FOR iX=1 TO zX (Zeilenweise summieren nach Spalte 0 

FOR jX=1 TO sX 
LET r(iX,0)=r(iX,0)+r(iX,jX) 

NEXT jX 
NEXT iX 

FOR iX=1 TO zX !Gesamtsumme nach r(0,0) bringen 

LET r(0,0)=r(0,0)+r(iX,0) 
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NEXT i% 

FOR j%=1 TO s% 'Spaltenweise summieren nach Zeile 0 

FOR i%=1 TO z% 

LET r(0 / j%)=r(0,jX)+r(iX,j%) 

NEXT iX 
NEXT jX 
PRINT 

PRINT "Übersicht: ";zX; n Zeilen, ";sX;" Spalten:" 

FOR iX=0 TO zX 
FOR jX=0 TO sX 

PRINT USING "##### ",r(iX,jX); 

NEXT jX 
PRINT 

NEXT iX 'Schleifenschachtelung typisch für 

PRINT "Ende." 'die Tabellenverarbeitung (Arrays) 

END 


Ausführung zu ABTABELL: 


Tabellenverarbeitung: Absatztabelle Kunde/Vierteljahr 
als zweidimensionales Array. 

Anzahl der Zeilen? 5 
Anzahl der Spalten? 4 

Eingabe zeilenweise: 

Nächste Zeile, nächster Kunde: 

Kunde 1 , Vierteljahr 1 ? 10 
Kunde 1 , Vierteljahr 2 ? 20 
Kunde 1 , Vierteljahr 3 ? 30 
Kunde 1 , Vierteljahr 4 ? 40 
Nächste Zeile, nächster Kunde: 

Kunde 2 , Vierteljahr 1 ? 20 
Kunde 2 , Vierteljahr 2 ? 40 
Kunde 2 , Vierteljahr 3 ? 60 
Kunde 2 , Vierteljahr 4 ? 80 
Nächste Zeile, nächster Kunde: 

Kunde 3 , Vierteljahr 1 ? 30 
Kunde 3 , Vierteljahr 2 ? 60 
Kunde 3 , Vierteljahr 3 ? 90 
Kunde 3 , Vierteljahr 4 ? 120 
Nächste Zeile, nächster Kunde: 

Kunde 4 , Vierteljahr 1 ? 40 
Kunde 4 , Vierteljahr 2 ? 80 
Kunde 4 , Vierteljahr 3 ? 120 
Kunde 4 , Vierteljahr 4 ? 160 
Nächste Zeile, nächster Kunde: 

Kunde 5 , Vierteljahr 1 ? 50 

Kunde 5 , Vierteljahr 2 ? 100 

Kunde 5 , Vierteljahr 3 ? 150 

Kunde 5 , Vierteljahr 4 ? 200 
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Übersicht: 5 Zeilen, 4 Spalten: 


1500 

150 

300 

450 

600 

100 

10 

20 

30 

40 

200 

20 

40 

60 

80 

300 

30 

60 

90 

120 

400 

40 

80 

120 

160 

500 

50 

100 

150 

200 


Ende. 


Die Fächer mit 0 als Index werden häufig zur Ablage besonderer Werte 
verwendet. Bei Programm ABTABELL werden in der Zeile 0 die 
Quartalssummen 150, 300, 450, 600 abgelegt, also die vier Spaltensummen. 
In Spalte 0 finden wir die Kundenabsatzmengen 100, 200, 300, 400, 500 
als die 5 Zeilensummen. Im Fach r(0,0) ist die Gesamtjahresabsatzmenge 
1500 gespeichert. Das zeilen- wie auch spaltenweise Summieren läuft 
wieder über Schleifenschachtelung ab. 


DIM R(5,4) richtet 
Tabelle mit 6 Zeilen 
und 5 Spalten ein, also 
20 Fächer. 


LET r(4,3)=120 weist 
dem Fach in Zeile 4 
und Spalte 3 den Wert 
120 zu. 


PRINT r(i%,2) gibt 
Spalte 2 aus, wenn i% 
von 0 bis 5 läuft. 


In obenstehender Tabelle steht ein Fach für ein Feldelement. Über dem 
Wert des jeweiligen Arrayeintrags im Ausführungsbeispiel steht nochmal 
die genaue Arraybezeichnung. 


r(0,0) 

1500 

r(0,l) 

150 

r(0,2) 

300 

r(0,3) 

450 

r(0,4) 

600 

r(l,0) 

100 

r(l,l) 

10 

r( 1,2) 

20 

r(l,3) 

30 

r(l,4) 

40 

r(2,0) 

200 

r(2,l) 

20 

r(2,2) 

40 

r(2,3) 

60 

r(2,4) 

80 

r(3,0) 

300 

r(3,l) 

30 

r(3,2) 

60 

r(3,3) 

90 

r(3,4) 

120 

r(4,0) 

400 

r(4,l) 

40 

r(4,2) 

80 

r(4,3) 

120 

r(4,4) 

160 

r(5,0) 

500 

r(5,l) 

50 

r(5,2) 

100 

r( 5,3) 

150 

r(5,4) 

200 


Zweidimensionales Array r(,) als Beispiel 
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Mit dreidimensionalen Arrays geht man im Prinzip genauso um wie mit 
zweidimensionalen. Man kann sich ein dreidimensionales Array als Quader 
vorstellen, der in viele kleine Würfel unterteilt ist. Jeder dieser kleinen 
Würfeln entspricht einem Arrayeintrag. Die drei Indizes geben dann die 
Lage des kleinen Würfels im Quader an. 

Mehr als drei Dimensionen lassen sich grafisch nicht darstellen. Wie die 
folgende Erweiterung des Regals von ABTABELL zu einem vier¬ 
dimensionalen Array zeigt, können solche Datenstrukturen dennoch 
veranschaulicht werden: 


dim t(5,4,io, 15) Array t mit vier Dimensionen 

M--5 Zeilen für 5 Kunden 

' -4 Fächer (Quartale) je Kunde 

-10 Karten (Aufträge) je Fach 

-15 Einträge (Positionen) je Auftrag 

Beispiel für ein vierdimensionales Array 


Der Wert von t(2,l,9,4) gibt demnach Auskunft über den neunten Auftrag 
des Kunden 2 im ersten Jahresquartal, und zwar genau über die vierte 
Position dieses Auftrags. 

Die Anzahl der Feldelemente ist bei eindimensionalen Arrays 
unbeschränkt. Bei mehrdimensionalen ist jedoch darauf zu achten, daß die 
Anzahl der Arrayeinträge eines Arrays nicht den Wert 65535 
überschreitet, da der Interpreter sonst einen Fehler meldet. Der^folgende 
Befehl 

DIM q(100,700) 

wäre also unzulässig, da das Array 101*701=70801 Elemente enthielte. 



Programmierkurs 
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3.1 Grundlegende Programmstrukturen an Beispielen 
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3.2 Strings (Texte) 

219 
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241 

3.4 Eingabe und Ausgabe 


3.5 Suchen, Sortieren, Mischen und Gruppieren von Daten 

286 

3.6 Sequentielle Datei (Tclefondatci) 

317 

3.7 Dircktzugriff-Datei (Artikeldatci) 

331 

3.8 Index-sequentielle Datei (Kundendatei) 

350 

3.9 Gekettete Liste als Linkcd List (Namensdatci) 

360 

3.10 Binärer Baum (Nummcmdatei) 

370 
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385 

3.12 Unterbrechungscreignisse 

391 
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397 

3.14 Masciiinennahe Programmierung und Tonerzeugung 

429 
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3.4.1 Bildschirmverwaltung 


3.4.1.1 Cursorplazierung auf dem Bildschirm 

Das Programm AUSGABE 1 zeigt, wie ein einfaches Muster am Bild¬ 
schirm ausgegeben werden kann. Das Muster hat dieses Aussehen: 


Vie 

Vie 

Vie 

Vie 

Vie 

Vie 


weg 

weg 

weg 

weg 

weg 

weg 


Vie weg 
Vieweg 


Muster mit: 

- 8 Zeilen 

- zX*2 Blanks in der Mitte 
(z% geht von 0 bis 7) 
Ausgabe zeilenweise von 
unten (Vieweg) nach 
oben (Vie ... weg) 


Codierung zu Programm AUSGABE 1: 

rem ====== Programm AUSGABE1 

PRINT "Demonstration von PRINT AT, CRSLIN und CRSCOL.» 

DO 

INPUT "Spalte (8-68), Zeile(9-25)»;spalte%,zeile% 

EXIT IF zeile%<9 OR zeile%>25 OR spalte%>68 OR spalte%<8 
a)ausgabe(spalte%,zei le%) 

LOOP 

PRINT "Ende." 

END 

i 

PROCEDURE ausgabe(spalte%,zeile%) 

LOCAL z% 

CLS 

aposition 
FOR z%=0 TO 7 

PRINT AT(spalte%-z%,zeile%-z%); 

PRI NT "Vie»;SPACE$(z%*2);"weg"; 
aposition 

PAUSE 25 !Eine halbe Sekunde warten 

NEXT z% 

REPEAT !Auf Tastendruck warten: 

UNTIL INKEY$<>"" 'Gleicher Effekt wie VOID INP(2) 

CLS 

RETURN 
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PROCEDURE Position 
LOCAL spalte% / zeile% 

LET spalte%=CRSCOL 
LET zeile%=CRSLIN 

PRINT AT(1 / 1);"Cursor in Spalte ";spalte%;" und in Zeile ";zeile%;" " 
RETURN 


Zunächst legen wir mit zeile% und spalte% die Startposition für das 
untere Wort "Vieweg" fest. Der Ausgabe-Bildschirm hat 25 Zeilen mit 80 
Spalten, die Numerierung fängt in der oberen linken Ecke jeweils bei 1 
an. Deshalb muß zeile% zwischen 9 und 25 und spalte% zwischen 8 und 
68 liegen, damit das Vieweg-Muster ganz auf den Bildschirm paßt und 
nicht die Cursorpositionsangabe in der ersten Zeile überschreibt. 

Die Anweisung 

CLS 

im Unterprogramm ausgabe löscht den Bildschirminhalt (CLS für CLear 
Screen). Der Cursor befindet sich jetzt in der linken oberen Ecke des 
Ausgabe-Fensters. Mit der Anweisung 

PRINT AT(spalte%-z%,zeile%-z%); 

positionieren wir den Cursor in die Spalte mit der Nummer spalte°/o-z% 
und in die Zeile mit Nummer zeile%-z%. Angenommen, zeile% habe den 
Wert 20. Dann wird in der FOR-NEXT-Schleife der Cursor auf die 
Positionen 20, 19, 18, 17, 16, 15, 14 und 13 plaziert. Da die 

Bildschirmzeilen von oben nach unten gezählt werden, wird jeweils eine 
Zeile über die andere geschrieben. 

Hinter der Angabe der Bildschirmkoordinaten im PRINT-AT-Befehl kann 
wie in einem "normalen" PRINT-Befehl noch der auszugebende Text 
stehen. Dies wird im Unterprogramm Position demonstriert. 


PRINT AT(Spalte,Zeile);"Text" 

1- 1-80: 80 Zeichen von links nach rechts. 

*-1-25: 25 Zeilen von oben nach unten. 

-auszugebender Text 


Anweisung PRINT AT zur Positionierung des Cursors 
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Zur Cursorplazierung gibt es noch die Befehle "LOCATE Zeile,Spalte", 
der den Cursor zur angegebenen Position bringt, ohne etwas auszu¬ 
drucken, und "HTAB Spalte" und "VTAB Zeile", um nur die aktuelle 
Spalte bzw. Zeile zu verändern. 

Der Befehl 

PAUSE 25 

veranlaßt den Computer, eine halbe Sekunde zu warten, bevor er den 
nächsten Befehl ausführt. Das Argument hinter PAUSE gibt die Zeitdauer 
in 50stel Sekunden an. Im Programm ist diese Pause nötig, um verfolgen 
zu können, wie das Muster aufgebaut wird. 

Mit der INKEY$-Funktion lernen wir eine weitere Methode kennen, um 
Benutzereingaben zu verarbeiten. INKEY$ liest ein Zeichen von der 
Tastatur und übergibt je nach gedrückter Taste ein String, das aus einem 
oder aus zwei Zeichen bestehen kann. Zwei-Zeichen-Strings werden bei 
Tasten übergeben, denen kein ASCII-Code zugeordnet ist (wie den 
Funktionstasten), ansonsten liefert INKEY$ ein einzelnes Zeichen zurück, 
das der gedrückten Taste entspricht. Im Gegensatz zu INPUT, INPUTS 
und INP wartet INKEYS jedoch nicht auf den Tastendruck: Wenn bei der 
Ausführung des Funktion keine Taste betätigt wurde, wird ein Leerstring 
zurückgegeben. Will man mit INKEYS auf einen Tastendruck warten, 
muß man die Anweisung in eine REPEAT-UNTIL-Schleife einsetzen 
(wie im Programm). 

Das Unterprogramm Position zeigt die aktuelle Cursorposition mittels 
CRSCOL und CRSLIN an. (Im PRINT-Befehl dieses Unterprogramms 
wird ganz zum Schluß noch ein Leerzeichen ausgegeben, um Textreste, 
die eventuell noch in der ersten Zeile stehen, zu löschen.) 


LET spalte=CRSCOL 


LEI zeile-CRSLIN 


Variable CRSCOL (Cursor column) 
enthält ständig die aktuelle Spalten¬ 
position. 

Variable CRSLIN (Cursor line) enthält 
ständig die aktuelle Zeilenposition. 


CRSCOL und CRSLIN zur Cursorpositions-Bestimmung 
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3.4.1.2 Sichere Eingaberoutine 

Das Programm EINGABE 1 zeigt folgende Maßnahmen für eine sichere 
Gestaltung der Tastatureingabe auf: 

- Die maximale Anzahl von Eingabestellen wird mit Punkten markiert. 
Jedes eingegebene Zeichen ersetzt den nächsten Punkt. 

- Hat der Benutzer diese Maximalzahl erreicht (hier 25), endet das 
Programm automatisch (Zählerschleife FOR i%=l TO lm%). 

- Die Eingabe erfolgt zeichenweise über die Anweisungen 

LET e$=INPUT$(1) 

PRINT e$ 

wobei INPUT$(1) ein Zeichen erwartet und dieses nicht ausgibt 
(deshalb die anschließende PRINT-Anweisung). In der EXIT IF 
Anweisung wird die RETURN-Taste ( CHR$(13) ) zur Beendigung der 
Eingabe abgefragt. 

Da bei dieser Eingabemethode kein Cursor erscheint, wird wie in 
Programm TEXT8 (Kapitel 3.2.2) an die momentane Eingabestelle ein 
Underscore ("__") gesetzt. Dieser "künstliche" Cursor wird in der FOR- 
NEXT-Schleife stets vom neuen e$ überschrieben. Das letzte Underscore 
wird nach der Schleife entfernt: Es wird mit einem Blank gelöscht, wenn 
die maximale Eingabelänge erreicht wurde, ansonsten mit einem Punkt. 


Codierung zu Programm EINGABE 1: 


REM ====== Programm EINGABE1 

I 

REM ====== Vereinbarungsteil 


1 lm%: Länge maximal 

1 le%: Länge eingegeben über Tastatur 

1 e$: Eingegebener Text 

1 b$: Berücksichtigter Eingabetext 

• ret$: RETURN-Taste 

1 cur$: Cursor-Symbol 

1 i%: Laufvariable 
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REM ====== Anueisungsteil 

LET le=0 
LET b$="" 

LET ret*=CHR$(13) 

LET cur*="_" 

CLS 

PRINT "Markierte Begrenzung der Tastatureingabe." 
INPUT "Länge Ihrer Tastatureingabe ";liriX 
PRINT AT(1,6);"Tastatureingabe: "; 

PRI NT cur*;STRING*(ImX-1,».»); 

FOR i%=1 TO ImX 
PRINT AT(17+iX,6); 

LET e*=INPUT*(1) 

EXIT IF e$=ret* 

PRINT e$;cur$; 

LET b$=b*+e$ 

INC leX 
NEXT iX 

IF iX<=lmX THEN 
PRINT "." 

ELSE 

PRINT CHR$(8);" » 

ENDIF 

PRINT 

PRINT »Eingabe: ";b$ 

PRINT "Länge der Eingabe: ";leX 
END 


Ausführung zu Programm EINGABE 1: 


Markierte Begrenzung der Tastatureingabe.” 
Länge Ihrer Tastatureingabe ? 25 


Tastatureingabe: GFA-Ba»ic-Wegweiier 

Eingabe: GFA-Basic-Uegweiser 
Länge der Eingabe: 19 


In GFA-Basic läßt sich die oben beschriebene Begrenzung der 
Eingabelänge bequem durch einen einzigen Befehl bewirken: 


FORM INPUT Länge,Stringvariable 

Dieser Befehl ähnelt sehr dem normalen INPUT-Befehl mit einer 
String variablen, nur daß kein Fragezeichen gedruckt wird und die 
Eingabelänge auf den Wert beschränkt ist, den die Variable Länge angibt. 
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Werden mehr Zeichen eingegeben, wird man vom Computer akustisch 
darauf aufmerksam gemacht. 

Es gibt noch eine andere Variante dieses Befehls: 

FORM INPUT Länge AS Stringvariable 

Bei dieser Anweisung wird vor der Eingabe der vorherige Inhalt der 
Stringvariablen ausgegeben, den man dann übernehmen oder verändern 
kann. 

Im nachfolgenden Abschnitt werden wir die Verwendung des FORM- 
INPUT-Befehls demonstrieren. 


3.4.1.3 Bildschirmmaske aufbauen 

Eine Bildschirmmaske ist ein elektronisches Blankoformular, in das an 
vorgegebenen Stellen Eingaben vorgenommen werden können. Das 
Programm BILDMASK zeigt den kolonnenweisen Aufbau einer solchen 
Maske (Kolonne = Zusammenfassung mehrerer Spalten). 


Codierung zu Programm BILDMASK: 

REM ====== Programm BILDMASK 

CLS 

PRINT "Aufbau einer BiIdschirmmaske in Einzelschritten." 

i 

REM ====== Vereinbarungsteil 

DIM k$(5) !Fünf Datenfelder eines Kundensatzes 

LET ret$=CHR$(13) !Wagenrücklauf 

i 

REM ====== Anweisungsteil 

PRINT "Weiter: Taste drücken"; 

VOID INP(2) 

CLS 

PRINT AT(1,11);"Schritt 1: Numerierung der Datenfelder" 
FOR i%=1 TO 5 
PRINT AT(3,5+i%);i% 

NEXT i% 

VOID INP(2) 

PRINT "Schritt 2: Bezeichnungen der Datenfelder" 

PRINT AT(6,6);"Kundennunmer :" 

PRINT AT(6,7);"Kundenname :" 

PRINT AT(6,8);"Kontostand :» 

PRINT AT(6,9);"Umsatz :" 

PRINT AT(6,10);"Letzte Rechnung 
VOID INP(2) 
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PRINT "Schritt 3: Einträge in Datenfelder eintippen" 

FOR i%=1 TO 5 
PRINT AT(24,5+i%); 

FORM INPUT 20,k$(i%) 

NEXT i% 

PRINT AT(1,13);"Kundensatz k$ enthält jetzt diese 5 Einträge:" 
FOR i%=1 TO 5 
PRINT k$(i%) 

NEXT i% 

VOID INP(2) 

END 


Schrittweise Ausführung zu Programm BILDMASK: 
0. Schritt: 

Ausgabe der Programm-Überschrift 


Aufbau einer Bildschinnnaske in Einzelschritten. 

| Weiter: Taste drücken 

1. Schritt: 

Als erste Kolonne wird die Numerierung 1 bis 5 untereinander 
ausgegeben. Die FOR-NEXT-Schleife und Anweisung "PRINT 
AT(3,5+i%);i%" setzt den Cursor in die Spalte 3 und nacheinander in die 
Zeilen 6,7,8,9 und 10, wo jeweils der momentane Wert von i% ausgegeben 
wird. 


1 

2 

3 

4 

5 

Schritt 1: Numerierung der Datenfelder 

2. Schritt: 

Als zweite Kolonne folgen dann die Bezeichnungen. Diese Bezeichnungen 
beginnen jeweils in der Spaltenposition 6. 


1 Kundennummer : 

2 Kundenname : 

3 Kontostand : 

4 Umsatz : 

5 Letzte Rechnung : 

Schritt 2: Bezeichnungen der Datenfelder 
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3. Schritt: 

Nun folgen die fünf Tastatureingaben. Mit der in 3.4.1.2 besprochenen 
FORM-INPUT-Anweisung werden die Daten in das String-Array k$ 
gelesen. Die maximale Eingabelänge wurde dabei willkürlich auf 20 
gesetzt. 

Zum Schluß des Programms wird zur Kontrolle der Array-Inhalt nochmal 
ausgegeben. 


1 Kundennumter : 101 

2 Kundenname : Schömberg 

3 Kontostand : 10000 

4 Umsatz : 10000.S 

5 Letzte Rechnung : 12,01.1911 

Schritt 3: Einträge in Datenfelder eintippen 

Kundensatz kS enthält jetzt diese 5 Einträge: 
101 

Schöneberg 

10000 

10000,5 

12.01.1911 


3.4.2 Ausgabeformatierung 


3.4.2.1 Ausgabezeile mit PRINT 

An dieser Stelle sollen die bekannten und noch unbekannten 
Formatierungsmöglickeiten, die die PRINT-Anweisung allein und in 
Verbindung mit zusätzlichen Funktionen bietet, übersichtlich zusammen¬ 
gestellt werden. Unter der Erklärung steht jeweils ein Beispiel (links) mit 
Ausführung (rechts). 

Im folgenden habe die Variable zahl den Wert 5. 

Das Semikolon 

Das Semikolon (";") trennt ohne Zwischenraum 

PRINT "Guido";zahl Guido5 

Das Apostroph 

Das Apostroph ("’") trennt mit einem Blank 


PRINT »Guido 1 "zahl 


Guido 5 
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Das Komma 

Das Komma rückt bis zur nächsten Tabulator-Zone vor (eine solche Zone 
ist jeweils 16 Zeichen breit) 

PRINT "Guido",zahl 

Normalerweise steht nach einem PRINT der Cursor am Anfang der 
nächsten Zeile. Wenn aber ein Semikolon, Apostroph oder Komma am 
Ende einer PRINT-Anweisung steht, wird die Ausgabe eines RETURNs 
unterdrückt und der Cursor bleibt in derselben Zeile. Beispiele: 

PRINT "Atari" 

PRINT "Computer" 

PRINT "Atari"' 

PRINT "Computer" 

PRINT "Atari", 

PRINT "Computer" 

TAB(n) 

Die TAB-Funktion ist nur in Verbindung mit dem PRINT-Befehl 
verwendbar. Wenn der Cursor sich noch vor oder in der n-ten Spalte 
befindet, wird er durch TAB(n) in die n-te Spalte gesetzt, sonst in die n- 
te Spalte der nächste Zeile. Im Gegensatz zur PRINT-AT-Anweisung 
fängt die Spaltennumerierung bei Null an. TAB(IO) setzt den Cursor also 
in die 11. Spalte. 

PRINT "Oliver";TAB(10);zahl 

PRINT "12345678901";TAB(10);zahl 


SPC(n) 

Die SPC-Funktion ist ebenfalls nur in Verbindung mit dem PRINT- 
Befehl verwendbar. Sie gibt n Leerzeichen aus, ähnelt also stark der 
SPACE$-Funktion. 

PRINT "Oliver";SPC(4);zahl 
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3.4.2.2 Zahlen kaufmännisch runden 

Der Kaufmann fordert eine gerundete und formatierte Zahlenausgabe. 
Das Runden einer Zahl z auf s% Dezimalstellen kann in einer Anweisung 
als 


let z = trunc(z*io*s%+o.5*sgn(z))/<io‘s%) auf s% Stellen runden 

geschrieben werden (10 A s% für "10 hoch s%"). Daraus erhalten wir für das 
Runden auf 2 Stellen: 

let z = trunc ( z* 1 oo+o. 5*sgn ( z ) )/l oo auf 2 Stellen runden 

Das Programm RUNDZAHL löst den Rundungsvorgang in Teilschritte 
auf und gibt sie zur Veranschaulichung aus. (In Abschnitt 3.1.4.4 hatten 
wir das Problem des ganzzahligen Rundens anhand einer Funktion darge¬ 
stellt.) 


Codierung zu RUNDZAHL: 

REM ====== Programm RUNDZAHL 

PRINT "Zahl zur Ausgabe runden." 
INPUT "Zu rundende Zahl";z 
INPUT "Kommastellen ";s% 

LET z=z*1(Ts% 

PRINT z 

LET z=z+0.5*SGN(z) 

PRINT z 

LET z-TRUNC(z) 

PRINT z. 

LET z=z/(10“s%) 

PRINT z 
PRINT "Ende." 

END 


Ausführung zu RUNDZAHL: 


Zahl zur Ausgabe runden. 

Zu rundende Zahl? 23.745 

Kommastellen ? J 

2374.5 

2375 

2375 

23.75 

Ende. 
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Ein solcher Aufwand ist aber gar nicht erforderlich, denn GFA-Basic 
stellt für das Runden von Zahlen eine spezielle Funktion zur Verfügung: 
ROUND(x,n). ROUND(x,n) rundet auf n Nachkommastellen, wenn n 
positiv ist. ansonsten wird auf die n-te Stelle vor dem Komma gerundet ( 
z.B. ergibt ROUND( 1006,-1) den Wert 1010). Wird das n nicht mit 
angegeben, wird einfach auf die nächste ganze Zahl gerundet. 

In diesem Zusammenhang sollte auch der DEFNUM-Befehl erwähnt 
werden, der die Form 

DEFNUM Stellenzahl 

hat (Stellenzahl darf zwischen 3 und 11 liegen). Nach dieser Anweisung 
werden alle Zahlen bei der Ausgabe auf Stellenzahl Ziffern gerundet, 
intern aber wie zuvor bearbeitet. Durch DEFNUM werden Rechen¬ 
ungenauigkeiten verschleiert, da Zahlen scheinbar genau ausgegeben 
werden. 


3.4.2.3 Ausgabezeile mit PRINT USING 

Die Anweisung PRINT USING dient der formgerechten Ausgabe von 
Zahlen und Text 

Hinter dem Anweisungswort PRINT USING steht ein Formatstring und - 
getrennt durch ein Komma - eine Liste der zu formatierenden Werte. 

Programm DEMO_USI demonstriert die grundlegenden Eigenschaften 
dieser Anweisung. 
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- Maskenteil und Ausgabeteil als Bestandteile: 

PRINT USING "#####",12 

Maskenteil (Druckmaske, 
Formatstring, Formatangabe) 
Ausgabeteil (Ausgabeliste, 
Variablenliste, Liste von 
Ausdrücken) 

- Formatierung von Zahlen (numerischen Daten): 

# Numerus-Zeichen reserviert Platz für eine Ziffer 

. Position des Dezimalpunktes 

+ Auch positives Vorzeichen wird ausgegeben 

Platz für negatives Vorzeichen wird freigehalten 

* Führende Nullen werden durch Sternchen ersetzt 

, Komma wird eingefügt (zur Bildung von Dreiergruppen) 

$ Dollarzeichen wird vor der Zahl gedruckt 
A Festlegung der Länge des Exponenten beim Exponentialformat 
Druckt das nachfolgende Zeichen 

- Formatierung von Text (Zeichenketten, STRINGs): 

! Nur das erste Zeichen eines Textes ausgeben 
& Ganzen Text ausgeben 

\..\ Soviele Zeichen des Textes ausgeben, wie \..\ lang ist 

Grundlegende Eigenschaften der Anweisung PRINT USING 


Codierung zu Programm DEMO-USI: 

REM ====== Programm DEMOJJSI 

PRINT "Demonstration zur Ausgabeformatierung mit PRINT USING." 

PRINT USING "####",12 

PRINT USING "####",1200 

PRINT USING "####",12345 

PRINT USING »######.##",750.45 

PRINT USING »######.##»,843.745 

PRINT USING »#,###,###.##»,72501286 

PRINT USING »**####.#»,4 

PRINT USING "-###.##»,222.8 

PRINT USING "+###.##_#»,222.8 

PRINT USING "$###.##",222.8 

PRINT USING "#.####-»,150.5 

PRINT USING "####.## DM für ### KG",2750.4,300 
LET m$="##.### % Rabatt ab ### Stück" 

PRINT USING m$,4.5,100 
PRINT USING m$,7.125,50 
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PRINT USING m$,7.125,50 
PRINT USING m$,0,0 
PRINT USING "!","Francs" 

PRINT USING »&","Francs» 

PRINT USING »\ \»,»Francs» 

LET m1$="###.## \ \ gleich ###.## \ \.» 

PRINT USING m1$,320,"Francs",100,"DM" 

PRINT USING m1*,31.25,»DM»,100,»Francs" 

PRINT »Ende.» 

END 


Ausführung zu Programm DEMO_USI: 


Demonstration zur Ausgabeformatierung mit PRINT USING. 
12 

1200 

2345 

750.45 

843.75 

72,501,286.00 

*****4.0 

222.80 

♦222.80# 

$222.80 

1.5050E*02 

2750.40 DM für 300 KG 
4.500 X Rabatt ab 100 Stück 
7.125 X Rabatt ab 50 Stück 
7.125 X Rabatt ab 50 Stück 
0.000 X Rabatt ab 0 Stück 
F 


Francs 


Fran 

320.00 Francs gleich 100.00 DM 
31.25 DM gleich 100.00 Francs. 
Ende. 


Die bisher bekannten Formatierungsmöglichkeiten der PRINT-Anweisung 
können mit der PRINT-USING-Anweisung kombiniert werden. Folgendes 
wäre z.B. möglich: 


PRINT AT(30,12);SPC(4);summe,USING "#####.##",betrag; 
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3.4.3 Menütechnik 

Bei der Ausführung des Programms MENUE werden dem Benutzer sieben 
Wahlmöglichkeiten am Bildschirm angeboten - vergleichbar mit dem 
Angebot auf einer Speisekarte (menu = Speisekarte). Aus diesem Grunde 
spricht man in der DV von der Menütechnik. Drei Punkte kennzeichnen 
die Menütechnik: 

1. Auswahl einer Tätigkeit aus dem Menü: 

Das Menü wird am Bildschirm gezeigt, bis der Benutzer eine gültige 
Auswahl getroffen hat (Unterprogramm menue.zeigen und DO- 
LOOP-Schleife im Hauptprogramm von MENUE). 

2. Ausführung dieser Tätigkeit in einem Unterprogramm: 

Über eine Mehrseitige Auswahl als Fallabfrage wird ein Unterpro¬ 
gramm aufgerufen (Anweisung ON m GOSUB ...), um dann die 
gewählte Tätigkeit auszuführen. 

3. Wiederholtes Menüangebot mit Programmende über das Menü: 

Nach dieser Ausführung wird das Menü erneut gezeigt. Abgebro¬ 
chen wird der Programmlauf stets über das Menü (Wahl 7) bzw. 
über das Steuerprogramm (hier EXIT IF m«7 ...), nicht aber in 
einem Unterprogramm. 

Drei Kennzeichen der Menütechnik anhand des Programms MENUE 


Die Anweisung DATA dient der Speicherung programminterner Daten. In 
MENUE werden die Namen der sieben Tätigkeiten KONTOSTAND, 
EINZAHLUNG usw. in DATA-Zeilen abgelegt und lassen sich so leicht 
nachträglich ändern. Die einzelnen Daten werden durch Kommata vonein¬ 
ander getrennt, können numerisch oder vom Typ String sein und müssen 
nicht extra gekennzeichnet werden. Nur bei der Abspeicherung von 
Texten, die vorne oder hinten Blanks enthalten, sollte man um den ganzen 
Ausdruck Anführungszeichen setzen. Die Daten können auf beliebig viele 
DATA-Anweisungen verteilt werden; wesentlich ist allein die 
Reihenfolge: DATA 4,7 entspricht den zwei Anweisungen DATA 4 und 
DATA 7. DATA kann als nicht-ausführbare Anweisung an jeder 
beliebigen Stelle im Programm stehen. Der Übersicht halber schreibt man 
DATA entweder an den Anfang oder an das Ende des Programms bzw. 
Unterprogramms. 

Mit der READ-Anweisung kann der Inhalt von DATA-Zeilen in 
Variablen gelesen werden. Nach READ kann eine einzige oder auch 
mehrere Variablen (durch Kommata getrennt) stehen. Sie werden bei der 
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Ausführung des Befehls der Reihe nach mit den Werten aus den DATA- 
Zeilen. gefüllt; ihr Typ muß deshalb auch mit dem des gelesenen Wertes 
verträglich sein. Der Computer merkt sich, bis zu welchem Datum 
(Einzahl von Daten!) er gekommen ist, und macht dann bei der nächsten 
READ-Anweisung an genau der Stelle weiter. 

Dieser interner Zeiger des Computers kann mit der RESTORE- 
Anweisung verstellt werden. RESTORE ohne Parameter setzt den Zeiger 
wieder auf den allerersten DATA-Befehl zurück. Man kann aber auch 
nach RESTORE noch zusätzlich ein sogenanntes Label angeben. Dann 
wird der Zeiger auf das dem Label folgende DATA gesetzt. 

Ein Label ist ein Name für eine bestimmte Stelle im Programm. Dieser 
Name besteht aus einer Folge von Ziffern und Buchstaben (die 
Verwendung von Underscores und Punkten ist auch erlaubt) und wird mit 
einem Doppelpunkt abgeschlossen. Er wird wie ein Befehl in die 
Codierung eingefügt; es dürfen in einem Programm auch mehrere Labels 
Vorkommen, wenn sie verschieden bezeichnet werden. 


READ nX 
DIH mS(nX) 

FOR iX=1 TO n% 
READ mt(iX) 
NEXT i% 


n% erhält den Wert 7. 
m$ dynamisch dimensionieren 
m$ wird mit den 7 Textworten gefüllt 
(m$ ist ein String-Array). 


DATA 7,KONTOSTAND,EINZAHLUNG,AUSZAHLUNG,NEUES KONTO 
DATA KONTO LÖSCHEN,GESAMTLISTE,PROGRAMMENDE 


READ weist einer oder mehreren 
Variablen Werte zu, die unter DATA 
gespeichert sind. 


Inhalt von m$(): 
KONTOSTAND 
EINZAHLUNG 
AUSZAHLUNG 
NEUES KONTO 
KONTO LÖSCHEN 
GESAMTLISTE 
PROGRAMMENDE 


Anweisungen READ und DATA zur Datenspeicherung im Programm 
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Die im Programm MENUE verwendete ON..GOSUB-Anweisung 


ON m GOSUB kto.stand,einza,ausza,kto.neu,kto.loesch,gesamt liste,ende 

ruft für m=l das Unterprogramm kto.stand auf, für m=2 das Unter¬ 
programm einza usw., ist also nur eine abkürzende Schreibweise für eine 
Fallabfrage zum Aufrufen von Unterprogrammen. Durch die Fehler¬ 
abfragen IF m... in menue.zeigen wird sichergestellt, daß tatsächlich nur 
einer der ganzzahligen Werte 1,2,...,7 vorliegt. Wäre m kleiner als 1 oder 
größer als 7, würde die ON..GOSUB-Anweisung überhaupt kein Unter¬ 
programm anspringen (diese Eigenschaft der ON..GOSUB-Anweisung 
nutzen wir in späteren Programmen aus). 


Codierung zu Programm MENUE: 


REH ====== Programm MENUE 

PRINT "Menü-Demonstration mit Wahl in DATA." 
PRINT 

I 

REM ====== Vereinbarungsteil 

1 m: Menüwahl 

1 m$(): Menü-Angebot 
' n%: Anzahl der Menüpunkte 

■ 

REM ====== Anweisungsteil 


GOSUB menue.lesen 
DO 

GOSUB menue.zeigen 

ON m GOSUB kto.stand,einza,ausza,kto.neu,kto.loesch,gesamt liste,ende 
EXIT IF m=7 

INPUT "Weiter mit <RETURN> »,w$ 

CLS 

LOOP 

PRINT "Ende." 

END 

■ 

PROCEDURE menue.lesen 
LOCAL i% 

READ nX 

DIM m$(n%) !Menü-Angebot nach m$ lesen 

F0R i%=1 TO nX 
READ m$(iX) 

NEXT iX 
RETURN 

DATA 7,KONTOSTAND,EINZAHLUNG.AUSZAHLUNG,NEUES KONTO 
DATA KONTO LÖSCHEN.GESAMTLISTE.PROGRAMMENDE 
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PROCEDURE menue.zeigen 
LOCAL i% 

REPEAT 

PRINT ".Menü-Angebot." IMenü zeigen 

FOR i%=1 TO n% 

PRINT i%;" ";m$(i%) 

NEXT i% 

PRINT ".'• 

INPUT "Ihre Menü-Auswahl";m 
IF moINT(m) THEN 
PRINT "...ganzzahlig" 

ENDIF 

IF m<1 OR m>n% THEN 
PRINT "...außerhalb" 

ENDIF 

UNTIL m=INT(m) AND m>=1 AND m<=n% 

RETURN 

i 

PROCEDURE kto.stand 

PRINT "Unterprogramm ";m$(m) 

RETURN 

PROCEDURE einza 
PRINT "Unterprogramm ";m$(m) 

RETURN 

PROCEDURE ausza 

PRINT "Unterprogramm ";m$(m) 

RETURN 

PROCEDURE kto.neu 

PRINT "Unterprogramm ";m$(m) 

RETURN 

PROCEDURE kto.loesch 

PRINT "Unterprogramm ";m$(m) 

RETURN 

PROCEDURE gesamt liste 

PRINT "Unterprogramm ";m$(m) 

RETURN 

PROCEDURE ende 
PRINT "Unterprogramm ";m$(m) 

RETURN 
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Ausführungen zu Programm MENUE: PAP zu MENUE: 


Menü-Demonstration mit Wahl in DATA. 

.Menü-Angebot- 

1 KONTOSTAND 

2 EINZAHLUNG 

3 AUSZAHLUNG 

4 NEUES KONTO 

5 KONTO LÖSCHEN 

6 GESAMTLISTE 

7 PROGRAMMENDE 


Ihre Menü-Auswahl? 3 
Unterprogramm AUSZAHLUNG 
Weiter mit <RETURN> 

-Menü-Angebot. 

1 KONTOSTAND 

2 EINZAHLUNG 

3 AUSZAHLUNG 

4 NEUES KONTO 

5 KONTO LÖSCHEN 

6 GESAMTLISTE 

7 PROGRAMMENDE 


Ihre Menü-Auswahl? 7 
Unterprogramm PROGRAMMENDE 
Ende. 



Bei dem im Programm MENUE gezeigten Menü handelt es sich um ein 
Menü, wie es sich in ähnlicher Form in allen BASIC-Dialekten erzeugen 
läßt. Angenehmer für den Atari-Benutzer sind jedoch die Rolladenmenüs 
(Pull-Down-Menüs), die er vom Desktop her kennt. Diese Menüform 
bietet auch für den Programmierer Vorteile, da sie voll von BASIC 
unterstützt wird und sich äußerst bequem in ein Programm integrieren 
läßt. 

Das Programm MENUE2 deckt denselben Aufgabenbereich wie MENUE 
ab, verwendet jedoch Rolladenmenüs: 
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Codierung zu Programm MENUE2: 

rem ====== Programm MENUE2 

CLS 

PRINT AT(20,10);"Menü-Demonstration mit Rolladenmenüs." 

i 

REM ====== Vereinbarungsteil 

1 wahl$: Name des gewählten Menüpunktes 

1 p$(): Namen der aufrufbaren Prozeduren 

1 m$(): enthält Menü-Informationen für den MENÜ-Befehl 

1 antwort%: gedrückte Taste bei der ALERT-Box 

i 

REM ====== Anweisungsteil 

menue.lesen 
procnamen.lesen 
menue.installieren 
DO 

ON MENU !Auf Menüwahl warten 

LOOP 
END 
■ 

PROCEDURE menue.lesen 
LOCAL i% 

DIM m$(50) !Menü-Angebot nach m$ lesen 

LET i %= -1 
REPEAT 
INC i% 

READ m$(i%) 

UNTIL m$(i%)="***" 

LET m$(i%)="" !Menüliste mit Leerstring beenden 

RETURN 

DATA Desk, nicht anwählbar,., 1,2,3,4,5,6, ,MI 

DATA Menül,Neues Konto,Konto löschen,Gesamtliste,Programmende, ,MI 
DATA Menü2,Kontostand,Einzahlung,Auszahlung, 1111 
DATA *** 

■ 

PROCEDURE procnamen.lesen 
LOCAL i% 

DIM p$(7) !Namen der procedures nach pS 

FOR i%=1 TO 6 
READ p$(i%) 

NEXT i% 

RETURN 

DATA Neues Konto,Konto löschen,Gesamt liste,Kontostand,Einzahlung,Auszahlung 

PROCEDURE menue.installieren 
ON MENU GOSUB menue.auswertung 
MENU m$() 

MENU 1,2 !Eintrag im Desk-Menü nicht anwählbar 

OPENW 0 
RETURN 
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PROCEDURE menue.ausWertung 
LOCAL i%,antwort% 

MENU OFF 

LET wahl$=m$(MENU(0)) 

REPEAT 
INC i% 

UNTIL p$(i%)=wahl$ OR i%=7 

ON i% GOSUB kto.neu,kto.loesch,gesamtliste,kto.stand,einza,ausza 
IF wahl$="Programmende" THEN 

ALERT 2,"Wollen Sie das Programm|wirklieh verlassen ?",1,"ja|nein",antwort% 
IF antwort%=1 THEN 
END 
ENDIF 
ENDIF 
RETURN 

i 

PROCEDURE kto.stand 

PRINT "Unterprogramm ";wahl$ 

RETURN 

PROCEDURE einza 

PRINT "Unterprogramm ";wahl$ 

RETURN 

PROCEDURE ausza 

PRINT "Unterprogramm ";wahl$ 

RETURN 

PROCEDURE kto.neu 
PRINT "Unterprogramm ";wahl$ 

RETURN 

PROCEDURE kto.loesch 

PRINT "Unterprogramm ";wahl$ 

RETURN 

PROCEDURE gesamt liste 
PRINT "Unterprogramm ";wahl$ 

RETURN 

PROCEDURE ende 

PRINT "Unterprogramm ";wahl$ 

RETURN 
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Ausführung zu Programm MENUE2 (beispielhafte Bildschirmanzeige): 


Desk 


ÜHCT1 Henü2 
Neues Konto 
Konto löschen 


Gesantl 1 ste 


proaranHMdt r 


HcnU-DcMostratlM ntt Rolladetmenils. 


Nach dem Starten des Programms erscheint ganz oben auf dem Bildschirm 
eine Menüleiste mit den Menüs "Desk", "Menül" und "Menü2". Unter 
"Menül" und "Menü2" finden sich die schon aus dem vorherigen 
Programm bekannten Menüpunkte. Unter "Desk" steht ein nicht 
anwählbarer Menüpunkt (graue Schrift). Wenn Accessories geladen sind 
(das sind Desktop-Hilfsprogramme, wie z.B. die Drucker-Anpassung), 
erscheinen sie an dieser Stelle. Das erste Menü der Menüleiste muß immer 
hierfür freigehalten werden. 

Um ein Menü aufzubauen, müssen mehrere Schritte ausgeführt werden: 

1. Festlegung des aufzurufenden Unterprogramms bei der 
Menüpunktwahl durch den Benutzer mit Hilfe der Anweisung 
"ON MENU GOSUB Prozedurname". Dieser Befehl braucht nur 
einmal ausgeführt zu werden, danach weiß der Computer, welches 
Unterprogramm angesprungen werden soll, wenn ein Menüpunkt 
angewählt wurde. 

2. Festlegung des Menü-Inhalts. 

Dazu müssen zunächst in einem String-Array die Namen der Menü¬ 
punkte und -Überschriften abgespeichert werden. Dies geschieht im 
Programm in der Prozedur menue.lesen, indem die Informationen 
aus DATA-Zeilen nach m$() gelesen werden. Dann wird mittels des 
Befehls "MENU m$()" (im Unterprogramm menue.installieren) das 
geschaffene Menü angezeigt und aktiviert. 





282 


3 Programmierkurs mit GFA-Basic 


Der Inhalt des String-Arrays m$() hat folgende Form: 
m$(0): Überschrift des Accessory-Menüs. 

m$(l): frei wählbarer erster Menüpunkt dieses Menüs (wird oft zum 
Aufrufen von Informationen über das Programm verwendet). 
m$(2): Soviele Minuszeichen, wie das Accessory-Menü maximal 
breit sein soll. 

m$(3)-m$(8): 6 beliebige Strings. 

m$(9): Leerstring (Ende-Markierung des ersten Menüs). 
m$(10)- : weitere Menüeinträge der Form Menü-Überschrift, Liste 
der Menüpunkte, Leerstring. 

Leerstring zum Beenden der gesamten Menü-Definition. 

3. Überwachen einer Menüpunktwahl durch "ON MENU" in einer 
Schleife (DO...LOOP-Schleife des Hauptprogramms). Bei jeder 
Ausführung dieses Befehls wird geprüft, ob ein Menüpunkt 
angewählt wurde und gegebenenfalls in die mit "ON MENU 
GOSUB" festgelegte Prozedur gesprungen. 

4. Auswertung der Menüpunktwahl. 

Dies geschieht in menue.auswertung mit der Funktion MENU(O), 
die den Index des Elements von m$() liefert, das den Namen des 
gewählten Menüpunktes enthält. Nach der Zuweisung "LET 
wahl$=m$(MENU(0))" steht in wahl$ also der Name des auszu¬ 
führenden Unterprogramms. Durch den schrittweisen Vergleich von 
wahlS mit den Elementen des Arrays p$(), das die Prozedurnamen 
beinhaltet (sie werden in procnamen.lesen dort eingetragen), erhält 
man die Nummer des entsprechenden Unterprogramms und kann 
mit einer "ON i GOSUB"-Anweisung dorthin springen. 

Dieser grobe Ablauf wird in MENUE2 durch einige weitere Befehle 
ergänzt: 

In menue.installieren kommt der Befehl MENU i,j zum Einsatz, mit dem 
man den i-ten Menü-Eintrag in m$() verändern kann. Ist j=l, wird der 
angesprochene Menüpunkt mit einem Häkchen versehen (j=0 entfernt ihn 
wieder), ist j=2, wird der Menüpunkt nicht anwählbar ("Schattenschrift"), 
bei j=3 wieder anwählbar. 

Außerdem wird hier "OPENW" verwendet, durch das normalerweise ein 
Fenster geöffnet wird. Steht aber wie im Programm hinter OPENW nur 
eine Null, bewirkt der Befehl lediglich, daß der Koordinatenursprung des 
Ausgabebildschirms unter die Menüleiste verlegt und so die Menüleiste 
vor einem unbeabsichtigten Überschreiben geschützt wird. 
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In menue.auswerten kommt noch der Befehl "MENU OFF" vor, der die 
beim Aufruf invertiert dargestellte Menü-Überschrift wieder in den 
Normalzustand bringt. 

Der ALERT-Befehl wird beim Verlassen des Programms verwendet, um 
sicherzustellen, daß nicht etwa aus Versehen das Programm beendet wird. 
Diese Anweisung erlaubt es, auf einfache Weise eine Alert-Box auf den 
Bildschirm zu bringen. Eine Alert-Box ist ein Fenster, in dem eine 
Meldung oder eine Frage steht und das vom Benutzer eine Reaktion 
verlangt. Diese Reaktion erfolgt mittels beschrifteter Felder ("Knöpfe" 
oder "buttons" genannt), von denen der Benutzer eines mit der Maus 
auswählen muß. Das Programmendefenster von GFA-Basic wäre ein gutes 
Beispiel für eine solche Alert-Box. 


ALERT Symbol,Meldung,default,Knopf-Text,antwort 

Symbol: Festlegung des in die Box zu zeichnenden Symbols: 

0: kein Symbol; 1: Ausrufezeichen; 

2: Fragezeichen; 3: Stop-Schild 

Meldung: Auszugebender Text (maximal 4 Zeilen zu je 30 
Zeichen, Trennung der Zeilen durch 
default: Nummer des Default-Knopfes (Knopf, der als 

gedrückt gilt, wenn RETURN betätigt wird) 
Knopf-Text: Aufschrift der Knöpfe (maximal 8 Zeichen pro 
Knopf, Trennung durch "|") 

antwort: antwort enthält nach Ausführung des Befehls die 

Nummer des betätigten Knopfes 

Der ALERT-Befehl 


3.4.4 Druckersteuerung 

Zu unterscheiden sind die auf dem Bildschirm und Drucker sichtbaren 
bzw. druckbaren Zeichen von solchen Zeichen, die eine ganz bestimmte 
Funktion zur Steuerung eines Ausgabegeräts auslösen. Beispiele sind: 

- CHR$(13): (ASCII-Codezahl 13) löst RETURN aus 

- CHR$(10): löst Line Feed (Zeilenvorschub ohne RETURN) aus 

- CHR$(8): löst Backspace (ein Zeichen nach links gehen) aus 

Beim Drucker gibt es neben diesen einfachen Steuercodes auch die soge¬ 
nannten Escape-Sequenzen, die von einem Escape-Zeichen ( CHR$(27) ) 
eingeleitet werden und mit denen man kompliziertere Einstellungen am 
Drucker vornehmen kann, wie z.B. den Zeichensatz ändern oder den 
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eingeleitet werden und mit denen man kompliziertere Einstellungen am 
Drucker vornehmen kann, wie z.B. den Zeichensatz ändern oder den 
Druckkopf steuern. Im Programm DRUCKSTE werden wir einige dieser 
Steuercodes kennenlernen. 

Zum Ansprechen des Druckers gibt es die LPRINT-Anweisung. Bei ihr 
sind bis auf den AT(Spalte,Zeile)-Zusatz die gleichen Argumente möglich 
wie bei der PRINT-Anweisung (auch USING... !). 

Die Steuerung eines Druckers können wir entweder im jeweiligen 
Anwenderprogramm vornehmen oder über eine gesonderte Routine. 

Das Programm DRUCKSTE stellt eine einfache Routine dar und bezieht 
sich auf die Steuerung des Druckertyps "NEC P6/P7/P2200". Die 
grundlegenden Steuercodes, die im Programm verwendet werden, 
existieren aber in gleicher oder ähnlicher Form auf vielen anderen 
Druckern; die Umstellung sollte also mit Unterstützung des jeweiligen 
Handbuches keine größeren Schwierigkeiten bereiten. Zu beachten sind 
allerdings noch die Einstellungen, die in der Drucker-Anpassung im 
Desk-Menü des Desktops vorgenommen werden müssen und die von 
Drucker zu Drucker beträchtlich abweichen können. 

DRUCKSTE zeigt, wie der Drucker als 'Schreibmaschine’ genutzt werden 
kann (Wahl 2: Jedes getippte Zeichen wird direkt gedruckt) und wie zwei 
Schrifttypen angesteuert werden (Wahl 3 und 4). 


Codierung zu Programm DRUCKSTE: 

REM ====== Programm DRUCKSTE 

PRINT »Steuerung des Druckers 'NEC P6/P7/P2200'.» 

PRINT »1 Beenden» 

PRINT "2 Direkt drucken» 

PRINT "3 Unterstreichen" 

PRINT »4 Fettschrift» 

INPUT »Wahl ";w% 

0N w%-1 G0SUB schreibma,unterstreich,fettschrift 
PRINT 

PRINT "Ende." 

END 

I 

PROCEDURE schreibma 
LOCAL z$ 

PRINT "Drucker als Schreibmaschine bis zur Eingabe von &" 
DO 

LET z$=INPUT$(1) 

PRINT z$; 

IF Z$=CHR$(13) THEN 
PRINT 
LPRINT 
ENDIF 
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EXIT IF z$=»&» 
LPRINT z$; 

LOOP 

RETURN 


PROCEDURE unterstreich 
LOCAL s1$,s2$ 

PRINT "Das Wort 'MWST 1 unterstreichen:» 

LPRINT »Die ";CHR$(27);»-»;CHR$(1);»MWST";CHR$(27);»-";CHR$(0);» incl.» 
LET s1$=CHR$(27)+"-"+CHR$(1) 

LET s2$=CHR$(27)+"-"+CHR$(0) 

1 CHR$(27);"-";CHR$(1) = Unterstreichungsmodus setzen 

1 CHR$(27);"-";CHR$(0) = Unterstreichungsmodus löschen 

LPRINT »Die »;s1$;"MWST»;s2$;» incl.» 

RETURN 

I 

PROCEDURE fettschrift 
LOCAL f1$,f2$ 

PRINT »Das Wort MWST in Fettschrift:» 

LET f1$=CHR$(27)+"E» 

LET f2$=CHR$(27)+"F" 

1 CHR$(27);"E" = Fettdruck setzen 

1 CHR$(27);»F» = Fettdruck löschen 

LPRINT »Die »;f1$;»MWST»;f2$;» incl.» 

RETURN 


Ausführung zu Programm DRUCKSTE: 


Dies ist ein Beispieltext. 

Die MWST incl. 

Die MWST incl. 

Die MWST incl. 
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3.5.1 Die Verfahren im Überblick 

Legt man einen größeren Datenbestand als Datei auf einem Externspei¬ 
cher ab, dann stellen sich immer wieder Probleme des Suchens, Sortierens, 
Mischens sowie Gruppierens von Datensätzen der Datei. Aus diesem 
Grunde bezeichnet man diese vier Verfahren oft als Hilfsmittel der 
Dateiverarbeitung. Ob man Sätze einer Datei oder Komponenten eines 
Arrays sortiert - am jeweiligen Sortierverfahren (dem Sortieralgorithmus) 
ändert dies zumeist nichts. Aus diesem Grunde arbeiten die folgenden 
Verfahren mit Arrays. Die Abbildung gibt für jedes Verfahren ein typi¬ 
sches Beispiel an. 


SUCHEN: Absatzmengen Mo-So: 45,100,95,78,90,76,80 

An welchem Tag wurden 78 Stück abgesetzt? 

SORTIEREN: Absatzmengen in die aufsteigende Sortierfolge 

45,76,78,80,90,95,100 bringen. 

MISCHEN: Mengen 45,76,78,80,90,95,100 von Filiale I und 

Mengen 30,47,55,57,61,80,103 von Filiale 2 zu 
30,45,47,55,57,61,76,78,80,80,90,95,100,103 als 
Gesamtliste mischen. 

GRUPPIEREN: Gruppensummen Mo-Mi=240 und Do-So=324 
bilden 

Vier Hilfsverfahren der Dateiverarbeitung an Beispielen 


3.5.2 Suchverfahren 

Die grundlegenden Suchverfahren sind das serielle bzw. sequentielle 
Suchen einerseits (typisch für Band und Kassette) und das binäre Suchen 
andererseits (typisch für Platte und Diskette). 
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3.5.2.1 Serielles und sequentielles Suchen 

Das einfachste Verfahren besteht darin, die Datei Satz für Satz in der 
Reihenfolge der Speicherung zu durchsuchen. Dieses serielle Suchen ver¬ 
arbeitet die Daten so, wie sie abgespeichert wurden. 

Das sequentielle Suchen setzt einen vorsortierten Datenbestand voraus. Ist 
z.B. eine Artikeldatei nach der Artikelnummer 101, 104, 108, 111 und 115 
sortiert und soll der Artikel 106 gesucht werden, dann kann bereits nach 
dem dritten Artikel die Suche abgebrochen werden, da 106 kleiner als 108 
ist. Bei der seriellen Suche hingegen muß bis zum Dateiende weiter¬ 
gesucht werden. 


Suchen im Reihenfolgezugriff 


seriell: 

starr fortlaufend 
gemäß Speicherungsfolge 

kein Vorsortieren 
ggf. bis Dateiende suchen 


sequentiell: 

logisch fortlaufend 
gemäß Sortierfolge 

Vorsortieren auf- oder 
absteigend 

Abbruch, wenn Suchbegriff 
kleiner/größer als Datum 


Serielles und sequentielles Suchen 


Das Programm SUCHSE_M bietet über ein Menü drei Möglichkeiten zum 
Reihenfolge-Suchen an. 

Dazu sind zehn Zahlen in DATA-Zeilen programmintern gespeichert. 
Mit READ d(z%) werden diese Daten in das Array d() eingelesen. 


Zur Menüwahl 1 von SUCHSE_M (Sequentielle Suche): 

Eine REPEAT-UNTIL-Schleife wird maximal a% mal durchlaufen für 
die a% Elemente des Datenarrays d() (Abbruch durch die Abfrage z%=a% 
in der UNTIL-Anweisung). Bei jedem Schleifendurchlauf wird d(z%) 
überprüft, d.h. die an der z%. Stelle in d() stehende Zahl. Ist diese Zahl 
größer oder gleich der gesuchten, so wird ebenfalls die Schleife abgebro¬ 
chen (Abfrage d(z%)>=such). Nach Beendigung der Schleife ist also ent- 
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weder d(z%) der gesuchte Eintrag oder such ist nicht im Array enthalten. 
Welcher Fall eingetreten ist, wird am Schluß des Unterprogramms durch 
eine IF-Anweisung festgestellt. 


Zur Menüwahl 2 (Serielle Suche rückwärts): 

Bei der Reihenfolge-Suche wird solange gesucht, bis der gewünschte 
Eintrag gefunden worden ist oder bis das gesamte Array durchlaufen 
wurde. (Da die serielle Suche von einem unsortierten Datenbestand aus¬ 
geht, ist ein vorheriger Abbruch wie bei suche 1 nicht möglich.) Diese 
Verfahrensweise ist in suche2 mit einer REPEAT-UNTIL-Schleife ver¬ 
wirklicht worden, die dann abbricht, wenn das Element gefunden oder 
wenn z% auf eins heruntergezählt wurde. 


Zur Menüwahl 3 (Serielle Suche vorwärts): 

Im Unterprogramm suche3 verläuft die Suche analog zu der in suche2, 
nur daß hier hoch statt herunter gezählt wird und sich deshalb natürlich 
auch die Abbruchbedingung ändert (z°/o=a% statt z%=l). 


Codierung zu Programm SUCHSE_M: 

rem ====== Programm SUCHSE_M 

CLS 

PRINT "Serielles bzw. sequentielles Suchen im Array mit" 

DATA 10,114,116,119,125,178,189,202,215,216,240 
READ a% {Anzahl der Daten a 

DIM d(a%+1) {Dynamisch dimensionieren 

FOR z%=1 TO a% 

READ d(z%) 

NEXT z% 

DO 

PRINT "0 Ende" 

PRINT "1 Sequentiell (in sortiertem Bestand) suchen" 

PRINT "2 Seriell (gemäß Speicherungsfolge) rückwärts suchen" 
PRINT "3 Seriell vorwärts suchen" 

INPUT "Wahl 0-3";w% 

EXIT IF w%=0 
FOR z%=1 TO a% 

PRINT d(z %) 1 
NEXT z% 

PRINT 

INPUT "Welcher Suchbegriff ";such 
ON w% GOSUB suchel,suche2,suche3 
LOOP 

PRINT "Ende." 

END 
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PROCEDURE suchel 
LOCAL z% 

LET z%=0 
REPEAT 
INC z% 

PRINT z%' 

UNTIL z%=a% OR d(z%)>=such 
PRINT 

IF d(zX)=such THEN 
PRINT such” , an , "z%;". Stelle." 

ELSE 

PRINT "... Abbruch bei Element'"z% 
ENDIF 
RETURN 

i 

PROCEDURE suche2 
LOCAL z% 

LET z%=a%+1 
REPEAT 
DEC ZX 
PRINT zX' 

UNTIL d(zX)=such OR zX=1 
PRINT 

IF d(zX)=such THEN 
PRINT such'"an"'zX; 11 . Stelle." 

ELSE 

PRINT "... nicht gefunden." 

ENDIF 

RETURN 

PROCEDURE suche3 
LOCAL zX 
LET zX=0 
REPEAT 
INC zX 
PRINT zX' 

UNTIL d(zX)=such OR zX=a% 

PRINT 

IF d(zX)=such THEN 
PRINT such'"an"'zX;". Stelle." 

ELSE 

PRINT "... nicht gefunden." 

ENDIF 

RETURN 
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Ausführung zu Programm SUCHSE_M: 


Serielles bzw. sequentielles Suchen im Array mit 
0 Ende 

1 Sequentiell (in sortiertem Bestand) suchen 

2 Seriell (gemä/? Speicherungsfolge) rückwärts suchen 

3 Seriell vorwärts suchen 
Wahl 0-3? 1 

114 116 119 125 178 189 202 215 216 240 
Welcher Suchbegriff ? 215 
1 2 3 4 5 6 7 8 
215 an 8. Stelle. 

0 Ende 

1 Sequentiell (in sortiertem Bestand) suchen 

2 Seriell (gemä/? Speicherungsfolge) rückwärts suchen 

3 Seriell vorwärts suchen 
Wahl 0-3? 2 

114 116 119 125 178 189 202 215 216 240 
Welcher Suchbegriff ? 215 
10 9 8 

215 an 8. Stelle. 

0 Ende 

1 Sequentiell (in sortiertem Bestand) suchen 

2 Seriell (gemä/? Speicherungsfolge) rückwärts suchen 

3 Seriell vorwärts suchen 
Wahl 0-3? 3 

114 116 119 125 178 189 202 215 216 240 
Welcher Suchbegriff ? 215 
12345678 
215 an 8. Stelle. 

0 Ende 

1 Sequentiell (in sortiertem Bestand) suchen 

2 Seriell (gemä/? Speicherungsfolge) rückwärts suchen 

3 Seriell vorwärts suchen 
Wahl 0-3? 1 

114 116 119 125 178 189 202 215 216 240 
Welcher Suchbegriff ? 124 
12 3 4 

... Abbruch bei Element 4 
0 Ende 

1 Sequentiell (in sortiertem Bestand) suchen 

2 Seriell (gemä/? Speicherungsfolge) rückwärts suchen 

3 Seriell vorwärts suchen 
Wahl 0-3? 3 

114 116 119 125 178 189 202 215 216 240 
Welcher Suchbegriff ? 124 
123456789 10 
... nicht gefunden. 

0 Ende 

1 Sequentiell (in sortiertem Bestand) suchen 

2 Seriell (gemä/? Speicherungsfolge) rückwärts suchen 

3 Seriell vorwärts suchen 
Wahl 0-3? 0 

Ende. 
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3.5.2.2 Binäres Suchen 

Das Programm SUCHBI_M enthält drei Varianten des binären Suchens. 
Die binäre Suche erfordert stets einen vorsortierten Datenbestand. 


Zur Menüwahl 1 (Unterprogramm Suchbin 1): 

- Es werden numerische Daten verarbeitet, die über die Tastatur in das 
Array d() eingegeben werden, (hier Werte 45,76,78,80,90,95,100). 

- Das Wort "binär" bzw. "zweiwertig" deutet an, daß man stets die Hälfte 
bildet. Um die Zahl 90 zu finden (siehe Ausführungsbeispiel), wird 
zunächst das mittlere Element des Arrays, die Zahl 80, genommen 
(sieben Zahlen, 7/2=3.5 ergibt gerundet 4, d(4)=80). 

- Der Vergleich 80 < 90 zeigt, daß in der oberen Hälfte 90 - 100 weiter¬ 
zusuchen ist. Man nimmt wieder die Mitte und der Vergleich 95 > 90 
zeigt, daß jetzt in der unteren Hälfte weiterzusuchen ist. Da in dieser 
Hälfte nur noch der Suchbegriff 90 steht, ist die Suche erfolgreich 
abgeschlossen. 

- Im Unterprogramm suchbin 1 werden die Grenzen des jeweiligen 
Suchintervalles in den Variablen unten% und oben% gespeichert. Bei 
jedem Durchlauf wird dieses Intervall geteilt ( "LET mitte%= 
INT((unten%+oben)/2)" ) und im richtigen Teil weitergesucht. Ist das 
Element gefunden oder ist unten% größer als oben%, so wird die Suche 
abgebrochen. 

Bei diesem kleinen Beispiel mag das binäre Suchen umständlich wirken. 
Das Leistungsvermögen dieses Suchverfahrens zeigt aber das folgende 
Beispiel: Um aus den 60 Millionen Bundesbürgern einen Namen heraus¬ 
zufinden, werden in jedem Fall maximal nur 26 Zugriffe benötigt (3 
Zugriffe für die Suche eines von 8 Bürgern (2 A 3=8), 6 Zugriffe für 64 
Bürger (2 A 6=64) bzw. 26 Zugriffe für über 60 Millionen Bürger 
(2 A 26=67108864)). 
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Codierung zu Programm SUCHBI_M: 


REM ====== Programm SUCHBI_M 

PRINT "'Binäres Suchen' als schnelle Suchmethode." 


REM ====== Vereinbarungsteil 

• a%: 

DIM d(50) 

DIM d$(256) 

' unten%,mitte%,oben%: 

' haelfte%: 

' s,s$: 


Anzahl der Daten 

!Array mit a%<=50 Daten als Suchgegenstand 
! String-Array als Suchgegenstand 
Grenzen für die Such-Hälften 
Such-Hälfte 

Suchbegriffe numerisch bzw. Text 


REM ====== Anweisungsteil 

DO 

PRINT »0 Ende» 

PRINT "1 Suche in einem numerischen Array (Anzahl variabel)" 

PRINT "2 Suche in einem String-Array (Anzahl fest unter DATA)" 

PRINT "3 Suche in einem String-Array (256 Zeichen)" 

INPUT »Wahl 0-3";w% 

EXIT IF w%=0 

ON w% GOSUB suchbinl,suchbin2,suchbin3 
VOID INP(2) 

CLS 

LOOP 

PRINT »Ende.» 

END 


REM . Unterprogramm SUCHBIN1 (Suche in numerischem Array) 

PROCEDURE suchbinl 

LOCAL a%,i%,unten%,mitte%,oben% 

INPUT "Anzahl der Daten (max. 50)";a% 

PRINT a%'"Daten aufsteigend eintippen:" 

FOR i%=1 TO a% 

INPUT d(i%) 

NEXT 1% 

LET unten%=1 
LET oben%=a% 

LET mitte%=INT((unten%+oben%)/2) 

INPUT "Welchen Wert suchen";s 
PRINT 

PRINT "Suchprotokoll zum Halbieren:" 

WH ILE unten%<=oben% AND s<>d(mitte%) 

LET mitte%=INT((unten%+oben%)/2) 

PRINT "Unten:"'unten%;", Mitte:"'mitte%;", Oben:'"oben% 

IF s>d(mitte%) THEN 
LET unten%=mitte%+1 
ELSE 

LET oben%=mitte%-1 
ENDIF 
WEND 
PRINT 


!unten oder oben weiter suchen 
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PRINT "Suchergebnis: «; 

IF s=d(mitte%) THEN 
PRINT s'"steht an der Stelle"'mitte% 

ELSE 

PRINT s'"nicht gefunden." 

ENDIF 

RETURN 

i 

REM . Unterprogramm SUCHBIN2 (Suche in einem String-Array) 

PROCEDURE suchbin2 

LOCAL i%,mitte%,haelfte% 

DATA ANNEMONE,CLEMATIS,FLIEDER,JASMIN,MARGARITE,MOHN,NELKE,ROSE,TULPE 
RESTORE 
FOR i%=1 TO 9 
READ d$(i%) 

PRINT d$(i%) 1 
NEXT i% 

LET d$(10)="ZZZ" 

PRINT 

INPUT "Welchen Begriff suchen";s$ 

LET mitte%=5 

LET haelfte%=mitte% 

WHILE haelfte%>1 AND s$<>d$(mitte%) 

LET haelfte%=ROUND(haelfte%/2) 

PRINT "Mitte:"'mitte%;", Haelfte:"'haelfte% 

IF s$>d$(mitte%) THEN 
LET mitte%=mitte%+haelfte% 

ELSE 

LET mitte%=mitte%-haelfte% 

ENDIF 

WEND 

IF s$=d$(mitte%) THEN 
PRINT s$'"steht an der Stelle'"mitte% 

ELSE 

PRINT s$'"nicht gefunden." 

ENDIF 

RETURN 

REM . Unterprogramm SUCHBIN3 (Suche in 256-Zeichen-String-Array) 

PROCEDURE suchbin3 

LOCAL i%,mitte%,haelfte% 

RESTORE 

FOR i%=0 TO 255 
LET d$(i%)=CHR$(i%) 

PRINT d$(i%); 

NEXT i% 

PRINT 

INPUT "Welches einzelne Zeichen suchen";s$ 

LET mitte%=128 
LET haelfte%=mitte% 
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WHILE haelfte%>1 AND s$<>d$(mitte%) 

LET haelfte%=R0UND(haelfte%/2) 

PRINT Haelfte:’”haelfteX 

IF s$>d$(mitte%) THEN 
LET mitte%=mitte%+haelfte% 

ELSE 

LET mitte%=mitte%-haelfte% 

ENDIF 

UEND 

IF s$=d$(mitte%) THEN 
PRINT sS"'steht an Stelle" , mitte% 

ELSE 

PRINT s$ M, nicht gefunden." 

ENDIF 

RETURN 


Ausführung zu Programm SUCHBI_M: 


•Binäres Suchen' als schnelle Suchmethode. 

0 Ende 

1 Suche in einem numerischen Array (Anzahl variabel) 

2 Suche in einem String-Array (Anzahl fest unter DATA) 

3 Suche in einem String-Array (256 Zeichen) 

Wahl 0-3? 1 

Anzahl der Daten (max. 50)? 7 
7 Daten aufsteigend eintippen: 

? 45 
? 76 
? 78 
? 80 
? 90 
? 95 
? 100 

Welchen Wert suchen? 90 

Suchprotokoll zum Halbieren: 

Unten: 1, Mitte: 4 # Oben: 7 
Unten: 5, Mitte: 6, Oben: 7 
Unten: 5, Mitte: 5, Oben: 5 

Suchergebnis: 90 steht an der Stelle 5 


Zur Menüwahl 2 (Unterprogramm suchbin2): 

- Jetzt werden Strings und keine Zahlen sortiert. Die neun Strings sind 
wieder in DATA-Zeilen gespeichert und werden in das String-Array 
d$() eingelesen. 
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- Vom Prinzip her läuft die Suche genauso ab wie bei suchbinl. Es wird 
aber nicht mit den Variablen unten% und oben% gearbeitet, die die 
Grenzen des Suchintervalles markieren, sondern nur mit der Variablen 
mitte%, die den Teilungsindex speichert. In der Variablen haelfte% 
wird die Breite des nächstkleineren Intervalles festgehalten. Bei jedem 
Durchlauf wird nun haelfte% zu mitte% addiert bzw. von mitte% sub¬ 
trahiert, je nach dem, ob sich das gesuchte Element "oberhalb" oder 
"unterhalb" von mitte% befindet. Wenn haelfte% auf 1 geschrumpft ist 
(haelfte% wird in jedem Durchgang durch zwei geteilt und gerundet), 
kann die Suche abgebrochen werden. 

- Da bei dieser Implementierung unter Umständen auf das 0. oder 10. 
Element zugegriffen wird, muß in d$(0) ein String stehen, der kleiner 
ist als alle gespeicherten Daten (dies ist erfüllt, weil d$(0) nicht 
initialisiert wurde und somit den Leerstring enthält) und in d$(10) ein 
String, der größer ist als alle anderen (dies wird durch die Zuweisung 
LET d$(10)="ZZZ" sichergestellt). 


Zur Menüwahl 3 (Unterprogramm suchbin3): 

- Der Suchalgorithmus stimmt exakt mit dem von Unterprogramm 
suchbin2 überein. Wie die Codierung zeigt, werden dem String-Array 
d$() die 256 ersten Zeichen des ASCII-Codes zugewiesen. Damit 
können wir die relativ geringe Zahl von Suchzugriffen verdeutlichen, 
die erforderlich ist, um eines der 256 Zeichen aus d$() zu suchen 
(maximal sind das 8). 


Ausführung zu Programm SUCHBI_M (Fortsetzung): 


0 Ende 

1 Suche in einem numerischen Array (Anzahl variabel) 

2 Suche in einem String-Array (Anzahl fest unter DATA) 

3 Suche in einem String-Array (256 Zeichen) 

Wahl 0-3? 2 

ANNEMONE CLEMATIS FLIEDER JASMIN MARGARITE MOHN NELKE ROSE TULPE 

Welchen Begriff suchen? MOHN 

Mitte: 5, Haelfte: 3 

Mitte: 8, Haelfte: 2 

MOHN steht an der Stelle 6 

0 Ende 

1 Suche in einem numerischen Array (Anzahl variabel) 

2 Suche in einem String-Array (Anzahl fest unter DATA) 

3 Suche in einem String-Array (256 Zeichen) 

Wahl 0-3? 3 
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Welches einzelne Zeichen suchen? 0 
Mitte: 128, Haelfte: 64 
Mitte: 64, Haelfte: 32 
Mitte: 32, Haelfte: 16 
0 steht an Stelle 48 

0 Ende 

1 Suche in einem numerischen Array (Anzahl variabel) 

2 Suche in einem String-Array (Anzahl fest unter DATA) 

3 Suche in einem String-Array (256 Zeichen) 

Wahl 0-3? 0 

Ende. 


Struktogramm zum binären Suchen: 


Eingabe von a% Daten in Array d() 


Anfangs werte zu weisen: 

unten=l, oben°/o=a%, mitte%=Mitte des aktuellen Suchintervalles 

Eingabe der zu suchende Zahl s 

Wiederhole, solange unten% <= oben% und sod(mitte%) 

■ 

mitte% = Mitte des aktuellen Suchintervalles 

I 

^ s > d(mitte°/o) ^* 

■ 

ja 


1 

Untere Grenze zur Mitte 

hochlegen: 

unten% = mitte°/o+l 

Obere Grenze zur Mitte 

herabsetzen: 

oben% = mitte°/o-l 

Ausgabe des Suchergebnisses: 


s = d(mitte%) 


ja 

_ 

nein 


Suchbegriff s gefunden 
an Position mitte% 


Suchbegriff s nicht ge 
funden 
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3.5.3 Sortierverfahren 


Die ersten Programme der Datenverarbeitung sollen Sortierprogramme 
gewesen sein. Dies unterstreicht die Bedeutung des Sortierens gerade für 
die kaufmännische DV. Es läßt aber auch erahnen, wie raffiniert heutige 
Sortieralgorithmen sein können. Die Abbildung gibt einige wichtige 
Begriffspaare zum Sortieren wieder. 

Sortieren...: 

...bedeutet: 

INTERN - EXTERN 

Daten im Internen Speicher (HS) oder mit 
Ein-/Aus!agern von/zu einem Externen 
Speicher. 

NUMERISCH - STRING 

Daten sind numerisch (Zahlen) oder alpha¬ 
numerisch (Buchstaben und Sonderzeichen). 

DATEN - ADRESSEN 

Daten selbst werden sortiert oder nur deren 
Adressen bzw. Speicherplätze. 

EINFACH - KOMPLEX 

Einfache Sortierverfahren wie Auswahl 

Bubble Sort, Einfügen oder komplexe, z.T. 
rekursive Verfahren wie Sortieren durch 
Mischen, Binär-Baum-Sort oder Quicksort. 


Vier Begriffspaare zum Sortieren 


Das externe Sortieren ist nur dann erforderlich, wenn der Datenumfang 
den Speicherplatz des Internspeichers übersteigt. In den folgenden Bei¬ 
spielen wird darauf nicht eingegangen. Das Sortieren über einen Binär¬ 
baum wird im Zusammenhang mit der Dateiverarbeitung in Abschnitt 
3.10 dargestellt. 


3.5.3.1 Zahlen unmittelbar sortieren 

"Unmittelbar" heißt, daß wir die zu sortierenden Zahlen selbst umordnen. 
Das Programm SORTNU_M demonstriert fünf grundlegende Sortier¬ 
verfahren (Das NU im Programmnamen SORTNU-M steht für 
Numerische Daten). 

Wir betrachten zunächst das über die Menüwahl 1 im Unterprogramm 
auswahl angewendete Sortierverfahren "Austausch nach Auswahl". 



3.5 Suchen, Sortieren, Mischen und Gruppieren von Daten 


299 


PROBLEM: Sechs Zahlen im Array d() sortieren. 

ABLAUF: 

1) Setze i%=l. 

2) Suche das Minimum von den Daten d(i%) bis d(6) und speichere seinen 
Index in stellemin%. 

3) Tausche d(i%) mit d(stellemin%) aus. 

4) Erhöhe i% um eins und gehe nach 2), wenn i% kleiner als 6. 


WERTE in d(): 


102 

101 

109 

106 

104 

105 

Beginn: In d() 6 Zahlen 

101 

102 

109 

106 

104 

105 

i%-l: Tausch 102-101 

101 | 

102 

109 

106 

104 

105 

i%=2: Kein Tausch 

101 

102 | 

104 

106 

109 

105 

i%=3: Tausch 109-104 

101 

102 

104 | 

105 

109 

106 

i%=4: Tausch 105-106 

101 

102 

104 

105 | 

106 

109 

i%=5: Tausch 109-106 


Sortierverfahren "Austausch nach Auswahl" an einem Beispiel 


Die rechts von der Markierung stehenden Zahlen sind die, von denen 
bei jedem Durchlauf das Minimum bestimmt werden muß. 

Die Minimumbestimmung läuft wie folgt ab: Zunächst wird stellemin der 
momentane Wert von i% zugewiesen, d.h., d(i%) wird als kleinstes 
Element angenommen. Dann wird in einer FOR-NEXT-Schleife, die von 
i°/o+l bis 6 läuft, geprüft, ob nicht vielleicht einer der auf d(i%) 
folgenden Daten kleiner ist. Wenn ja, erhält stellemin% den Indexwert 
dieses Datums. Nach dieser Zuweisung läuft die Schleife aber weiter, so 
daß man nach ihrer Beendigung sicher sein kann, daß stellemin% den 
Index des kleinsten Elementwertes von d(i%) bis d(6) enthält. 

Das Tauschen von d(i%) mit d(stellemin%) vollzieht sich über die 
Anweisung 

SWAP d(i%),d(stellemin%). 

Ohne Verwendung der SWAP-Anweisung müßte man das Tauschen nach 
der Methode des Dreieckstauschs über eine Hilfsvariable vornehmen. 
Wenn man nämlich die erste Variable direkt der zweiten zuweisen würde, 
wäre der Inhalt der zweiten verloren und man hätte sie nicht mehr für 
die Zuweisung an die erste zur Verfügung. 

Das Struktogramm verdeutlicht, daß das Sortieren durch "Austausch nach 
Auswahl" über zwei geschachtelte Zählerschleifen abläuft. Die dritte 
Zählerschleife dient allein der Ausgabe von d() zur Kontrolle. 
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Sortierverfahren "Austausch nach Auswahl" als Struktogramm: 


Eingabe: 6 Zahlen nach d() 


Für i% von 1 bis 5 wiederhole 


stellemin% = i% als vorläufiges Minimum festlegen 

Für j% = i%+l bis 6 wiederhole 

■ 

d(j%) < d(stellemin%) 

I 

nein^^x^ 


■ 


stellemin%=j% als neues Minimum 


Austausch von d(i%) und d(stellemin%) 


Ausgabe der 6 in d() aufsteigend sortierten Werte 


Codierung zu Programm SORTNU_M: 

REM ====== Programm S0RTNU_M 

PRINT "Sortieren nach vier grundlegenden Verfahren" 

PRINT "(numerische Daten selbst sortieren, nicht Zeiger)." 

REM ====== Vereinbarungsteil 

DIM d(6) !Array für die zu sortierenden Daten 

i 

REM ====== Anweisungsteil 

DO 

RESTORE 
FOR i%=1 TO 6 
READ d(i%) 

NEXT i% 

DATA 102,101,109,106,104,105 
PRINT "0 Ende" 

PRINT "1 Sortieren durch 'Austausch nach Auswahl'" 

PRINT "2 Sortieren durch 'Paarweisen Austausch (Bubble Sort)'" 

PRINT "3 Sortieren durch 'Einfügen'" 

PRINT "4 Sortieren durch 'Shell Sort'" 

PRINT "5 Sortieren durch 'Quicksort'" 

INPUT "Wahl 0-5";w% 

EXIT IF w%=0 

ON w% GOSUB auswahl,bubble,einfuegen,shell 
IF w%=5 THEN 
GOSUB quicksortd ,6) 
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ENDIF 

VOID INP(2) 

CLS 

LOOP 

PRINT "Ende." 

END 

I 

PROCEDURE auswahl 

LOCAL i%,j%,stelleminX 
PRINT 

PRINT "Sortierprotokoll zum 'Austausch nach Auswahl 1 :" 
FOR i%=1 TO 5 
LET stellemin%=i% 

FOR j%=i%+1 TO 6 

IF d(j%)<d(stelleminX) THEN 
LET stellemin%=j% 

ENDIF 
NEXT jX 

SWAP d(iX),d(stelleminX) 

FOR j%=1 TO 6 
PRINT d( jX) 1 
NEXT jX 
PRINT 
NEXT i% 

RETURN 

i 

PROCEDURE bubble 
LOCAL iX, jX 

PRINT "Sortierprotokoll zum 'Bubble Sort':" 

FOR i%=1 TO 6 
FOR j%=1 TO 5 

IF d(j%)>d(j%+1) THEN 
SWAP d(jX),d(jX+1) 

ENDIF 
NEXT j% 

FOR j%=1 TO 6 
PRINT d(j%)' 

NEXT j% 

PRINT 
NEXT i% 

RETURN 

i 

PROCEDURE einfuegen 
LOCAL iX,jX,d 

PRINT "Sortierprotokoll zum 'Sortieren durch Einfügen':" 
FOR iX=2 TO 6 
LET d=d(iX) 

LET j%=i%-1 
WH ILE d<d(j%) 

LET d(j%+1)=d(j%) 

DEC j% 

WEND 

LET d(jX+1)=d 
FOR j%=1 TO 6 
PRINT d<j%)' 

NEXT j% 
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PRINT 
NEXT i% 

RETURN 

i 

PROCEDURE Shell 

LOCAL i% # j% # schritt% 

PRINT "Sortierprotokoll zum 'Shell Sort':" 

LET schritt%=4 

REPEAT !Äußere Schleife erniedrigt Schrittweite 

FOR i%=schritt%+1 TO 6 !Die Folgenelemente mit dem Abstand schritt% 

LET d=d(i%) ! werden wie beim "Sortieren durch Einfügen" 

LET j%=i%-schritt% ! sortiert 

DO WH I LE d<d(j%) 

LET d(j%+schritt%)=d(j%) 

LET j%=j%-schritt% 

LOOP UNTIL j%<=0 
LET d(j%+schritt%)=d 
NEXT i% 

FOR j%=1 TO 6 
PRINT d(j%) 1 
NEXT j% 

PRINT 

LET schritt%=schritt% DIV 2 
UNTIL schritt%<1 
RETURN 

i 

PROCEDURE quicksort(aX,eX) 

LOCAL iX,jX,kX,d 
LET d=d(e%) 

LET i%=a%-1 
LET j%=e% 

WHILE iX<jX 
REPEAT 
INC i% 

UNTIL d(iX)>=d 
REPEAT 
DEC jX 

UNTIL d(jX)<=d 
IF iX<jX THEN 
SWAP d(iX),d(jX) 

ENDIF 

WEND 

SWAP d(eX),d(iX) 

FOR kX=1 TO 6 
PRINT d(k%) 1 
NEXT kX 
PRINT 

IF aX<iX-1 THEN 
quicksort(aX,iX-1) 

ENDIF 

IF iX+1<eX THEN 
quicksort(iX+1,eX) 

ENDIF 

RETURN 
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Ausführung zu SORTNU_M: 


Sortieren nach vier grundlegenden Verfahren 
(numerische Daten selbst sortieren, nicht Zeiger). 

0 Ende 

1 Sortieren durch 'Austausch nach Auswahl' 

2 Sortieren durch 'Paarweisen Austausch (Bubble Sort) 1 

3 Sortieren durch 'Einfügen' 

4 Sortieren durch 'Shell Sort' 

5 Sortieren durch 'Quicksort' 

Wahl 0-5? 1 

Sortierprotokoll zum 'Austausch nach Auswahl': 

101 102 109 106 104 105 
101 102 109 106 104 105 
101 102 104 106 109 105 
101 102 104 105 109 106 
101 102 104 105 106 109 


Zum Sortieren nach dem Verfahren des "paarweisen Austausches" bzw. 
"Bubble Sort" im Unterprogramm Bubble von SORTNU_M (Menüwahl 2): 

Die zwei ersten Zahlen im Sechs-Elemente-Array werden verglichen und 
- falls nicht in der gewünschten Sortierfolge - durch die Anweisung 
SWAP d(j°/o),d(j°/o+l) ausgetauscht. Dann wird j% um eins erhöht und die 
folgenden beiden Zahlen werden verglichen usw. Damit das ganze Array 
am Ende auf jeden Fall sortiert ist, muß dieser Vorgang sechs Mal 
wiederholt werden. Eine etwas elegantere Art, Bubble-Sort zu 
programmieren, wird in Abschnitt 3.5.3.3 mit Programm SORTSTRI 
vorgestellt. 

Steht eine große Zahl am Anfang des Arrays, bewegt sie sich mit der 
inneren j%-Schleife allmählich nach oben. Da dieser Vorgang an eine 
Luftblase erinnert, die durch eine Flüssigkeit hochsprudelt, ist man auf 
die Bezeichnung "Bubble Sort" gekommen. 
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Ausführung zu Programm SORTNU_M (Fortsetzung): 


0 Ende 

1 Sortieren durch 'Austausch nach Auswahl 1 

2 Sortieren durch 'Paarweisen Austausch (Bubble Sort) 1 

3 Sortieren durch 'Einfügen' 

4 Sortieren durch 'Shell Sort' 

5 Sortieren durch 'Quicksort' 

Wahl 0-5? 2 

Sortierprotokoll zum 'Bubble Sort': 

101 102 106 104 105 109 
101 102 104 105 106 109 
101 102 104 105 106 109 
101 102 104 105 106 109 
101 102 104 105 106 109 
101 102 104 105 106 109 


Zum Sortierverfahren "Einfügen" im Unterprogramm einfuegen des 
Programms SORTNU_M (Menüwahl 3): 

Bei diesem Verfahren werden zunächst die ersten beiden Elemente des 
Daten-Arrays sortiert, dann die ersten drei, dann die ersten vier usw. 
Dies geschieht durch richtiges Einfügen des nächstfolgenden Elements in 
das bereits sortierte Arraystück. 

Im Unterprogramm werden mit der äußeren i%-Schleife alle einzu¬ 
fügenden Datenelemente durchlaufen. Mit der inneren WHILE-Schleife 
wird dann ab der aktuellen Position rückwärts nach der richtigen Position 
von d (=d(i%)) gesucht. Dabei werden gleichzeitig alle Elemente bis zu 
dieser Position um eins nach vorne verschoben, um Platz für d zu 
schaffen. Da das Feldelement d(0) nicht benutzt wird und den somit Wert 
Null enthält (also kleiner ist als alle zu sortierenden Daten), bricht die 
WHILE-Schleife spätestens beim nullten Element ab. Mittels der 
Zuweisung "LET d(j°/o+l)=d" wird anschließend d an die korrekte Position 
eingefügt. 
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Ausführung zu Programm SORTNU_M (Fortsetzung): 


0 Ende 

1 Sortieren durch 'Austausch nach Auswahl* 

2 Sortieren durch 'Paarweisen Austausch (Bubble Sort)' 

3 Sortieren durch 'Einfügen' 

4 Sortieren durch 'Shell Sort' 

5 Sortieren durch 'Quicksort' 

Wahl 0-5? 3 

Sortierprotokoll zum 'Sortieren durch Einfügen': 

101 102 109 106 104 105 
101 102 109 106 104 105 
101 102 106 109 104 105 
101 102 104 106 109 105 
101 102 104 105 106 109 


Zum Sortierverfahren "Shell Sort" im Unterprogramm Shell des Programms 
SORTNU_M (Menüwahl 4): 

Das Sortieren nach dem Shell-Algorithmus ist neben Quicksort der 
effezienteste der hier vorgestellten Sortierverfahren. Da beim Shell-Sort 
auch Elemente verglichen werden, die weit voneinander entfernt liegen, 
wandern die Datenelemente schnell an ihre richtige Position. Besonders 
bei größeren Datenmengen ist dieser Vorteil deutlich spürbar. 

Der Sortiervorgang läuft in mehreren Stufen ab: Zunächst werden aus 
dem Datenarray Teilfolgen herausgegriffen, die aus Elementen bestehen, 
die voneinander denselben Abstand haben (dieser Abstand wird im 
Unterprogramm in der Variablen schritt°/o festgehalten). In unserem 
Beispiel hat schritt% zu Anfang den Wert 4. Somit gibt es zwei Teilfolgen: 
Die Elemente mit den Indizes 1 und 5 und die mit den Indizes 2 und 6 
(die mittleren Elemente sind bei dieser Stufe noch keiner Teilfolge 
zugeordnet). Dann werden die so ermittelten Teilfolgen mit dem obigen 
Einfüge-Algorithmus sortiert. 

Die nächsten Stufen des Verfahrens laufen genauso ab, nur daß mit einer 
verkleinerten Schrittweite gearbeitet wird (schritt°/o wird nach jedem 
Durchgang durch 2 geteilt). In der letzten Stufe hat schritt% den Wert 1, 
Shell-Sort entartet zum einfachen Einfügen. 
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Ausführung zu Programm SORTNU_M (Fortsetzung): 


0 Ende 

1 Sortieren durch 'Austausch nach Auswahl' 

2 Sortieren durch 'Paarweisen Austausch (Bubble Sort)' 

3 Sortieren durch 'Einfügen' 

4 Sortieren durch 'Shell Sort' 

5 Sortieren durch 'Quicksort' 

Wahl 0-5? 4 

Sortierprotokoll zum 'Shell Sort': 

102 101 109 106 104 105 
102 101 104 105 109 106 

101 102 104 105 106 109 

0 Ende 

1 Sortieren durch 'Austausch nach Auswahl' 

2 Sortieren durch 'Paarweisen Austausch (Bubble Sort)' 

3 Sortieren durch 'Einfügen' 

4 Sortieren durch 'Shell Sort' 

5 Sortieren durch 'Ouicksort' 

Wahl 0-5? 5 

102 101 104 105 109 106 
102 101 104 105 109 106 
101 102 104 105 109 106 
101 102 104 105 106 109 

0 Ende 

1 Sortieren durch 'Austausch nach Auswahl' 

2 Sortieren durch 'Paarweisen Austausch (Bubble Sort)' 

3 Sortieren durch 'Einfügen' 

4 Sortieren durch 'Shell Sort' 

5 Sortieren durch 'Quicksort' 

Wahl 0-5? 0 

Ende. 


Zum Sortierverfahren “Quicksort” im Unterprogramm quicksort des 
Programms SORTNU_M (Menüwahl 5): 

Quicksort ist ein rekursives Sortierverfahren, d.h., das Unterprogramm 
quicksort ruft sich selbst wieder auf. Die Rekursion läßt sich allgemein 
besonders dann gut anwenden, wenn es einem gelingt, das ursprüngliche 
Problem in zwei oder mehrere kleinere zu zerlegen. Wenn man dann diese 
kleineren Probleme mit genau dem gleichen Algorithmus bearbeiten kann, 
der für das ursprüngliche Problem bestimmt war, ergibt sich die 
Rekursion ganz von selbst. 

So geht auch der Quicksort-Algorithmus vor: Um das Problem des Sortie¬ 
rens in zwei kleinere Probleme zerlegen zu können, wird ein bestimmtes 
Element aus der Folge herausgegriffen (das sogenannte Pivotelement, in 
unserem Beispiel ist das die letzte Zahl) und anschließend die Folge so 
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umsortiert, daß alle Elemente, die einen größeren Wert haben als das 
Pivotelement, rechts von diesem stehen und alle mit kleinerem Wert links. 
Wären die nun links und rechts vom Pivotelemente stehenden Teilfolgen 
schon sortiert, könnte der Algorithmus jetzt abbrechen. Da sie das in der 
Regel aber nicht sind, müssen sie noch sortiert werden. Der Trick ist nun, 
daß dieses Sortieren der Teilfolgen mit genau dem gleichen Unterpro¬ 
gramm durchgeführt wird wie das der ursprünglichen Folge, es wird also 
in jeder Teilfolge wieder ein Pivotelement bestimmt, wieder umsortiert 
und wieder für jedes dieser noch kleineren Teilfolgen die Prozedur 
quicksort aufgerufen. Dieses Verfahren wird so lange fortgesetzt, bis die 
zu sortierende Teilfolge nur noch aus einem Element besteht. Dieses 
einzelne Element ist natürlich immer "sortiert". Es ist sehr wichtig, daß 
bei jeder Rekursion eine solche Abbruchbedingung existiert, da sonst das 
Unterprogramm nie aufhören würde, sich selbst aufzurufen. 

Am Programmcode soll diese Vorgehensweise nun im einzelnen festge¬ 
macht werden: Da die Prozedur quicksort im Laufe der Ausführung für 
unterschiedliche Teilfolgen aufgerufen wird, müssen zwei Übergabe¬ 
parameter eingeführt werden, die den Index des ersten Elements der 
Teilfolge und den des letzten enthalten. Beim ersten Aufruf wird somit 
das Wertepaar 1,6 übergeben, da die zu sortierende Folge sechs Elemente 
besitzt. (Weil in einer ON..GOSUB-Anweisung keine Unterprogramme mit 
Übergabeparametern stehen dürfen, wird der Aufruf von quicksort 
mittels einer gesonderten IF-Anweisung bewerkstelligt). 

Im Unterprogramm wird als erstes in der Variablen d das Pivotelement 
gespeichert und zwei Hilfszeiger i% und j% eingerichtet, die die restliche 
Folge von vorne bzw. von hinten durchlaufen. In einer REPEAT- 
UNTIL-Schleife wird i% so lange hochgezählt, bis ein Element gefunden 
wird, das größer als d ist, also nicht an der richtigen Position steht (Das 
Gleichheitszeichen in dieser Abfrage ist nur vorhanden, um sicherzu¬ 
stellen, daß die Schleife irgendwann abbricht, nämlich spätestens beim 
letzten Element d). Danach wird entsprechend j% heruntergezählt (da d(0) 
die Null enthält, ist auch hier der Abbruch gesichert). Wenn jetzt i% noch 
kleiner als j% ist, werden diese beiden falsch stehenden Elemente 
vertauscht. Dieser Ablauf wird so lange wiederholt, bis schließlich 
i°/o>=j% ist, also die gesamte Folge überprüft wurde, dann wird noch das 
Pivotelement an der richtigen Stelle eingefügt. Enthält die linke bzw. 
rechte Teilfolge mehr als ein Element, wird jetzt mit den neuen Grenzen 
quicksort für die linke bzw. rechte Teilfolge aufgerufen. 
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Datenflußplan zu SORTNU_M: 


Dateneingabe 


Sortieren Datenausgabe 


Da Datenbestände oft sortiert werden müssen, stellt GFA-Basic für das 
Sortieren nach dem Quicksort- bzw. Shellsortverfahren eigene Befehle zur 
Verfügung: 

QSORT d(+/-),Anzahl,j%() 

SSORT d(+/-),Anzahl,j%() 

Das Array d() enthält die zu sortierenden Daten und kann ein beliebiger 
Arraytyp sein, Anzahl gibt an, wieviele Elemente aus d() sortiert werden 
sollen (das nullte Element wird mitgezählt und auch mitsortiert). Das 
Plus- bzw. Minus-Symbol bestimmt, ob aufsteigend oder absteigend 
sortiert wird. Das Integerarray j%() ist für den Fall gedacht, daß man 
ganze Datensätze nach den in d() angegebenen Schlüsseln sortieren will. 
Dann kann man nämlich in j%() beispielsweise Zeiger auf die Datensätze 
abspeichern, da jede Reihenfolgenänderung der Elemente von d() an j%() 
weitergegeben wird. 

Wenn d() ein String-Array ist, kann vor Anzahl mittels der Befehlswortes 
"WlTH i()" noch ein Ganzzahlarray i() angegeben werden, das die 
Reihenfolge der Buchstaben und Sonderzeichen neu festlegt (normaler¬ 
weise wird die Reihenfolge der ASCII-Tabelle angenommen). Das Array 
i() muß mindestens 256 Elemente enthalten und gibt für jedes Zeichen 
einen Wert an, der seine Rangordnung bestimmt: Größere Zahlen 
bedeuten "in der Sortierreihenfolge weiter hinten liegend". 


3.5.3.2 Zahlen über Zeiger sortieren 

Im Programm SORTNU_M haben wir sechs Zahlen dadurch sortiert, daß 
wir sie selbst umgeordnet bzw. bewegt haben. 

Bei umfangreicheren Datenbeständen wird es zumeist günstiger sein, nur 
die Speicherplätze dieser Zahlen über Zeigervariablen bzw. Pointer zu 
sortieren, die Zahlen selbst aber unbewegt zu lassen. Das Programm 
SORTZEIG demonstriert dies mit denselben Daten und demselben 
Sortierverfahren des "Austausches nach Auswahl" wie in Programm 
SORTNU M. 
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Unsortiertes Array: Sortiertes Array: 


d(1)= 102 


d( 1 )= 101 

d(2)=101 


d(2)= 102 

d(3)=109 

d(4)=106 

Unmittelbares 

d(3)=104 

d(4)=105 


d(5)= 104 

Sortieren 

d(5)=106 

d(6)=105 


d(6)=109 


Unsortiertes 
Zeiger-Array 


Sortiertes Sortiertes Array 
Zeiger-Array (über Zeiger): 



Unmittelbares Sortieren sowie Sortieren über Zeiger 


Codierung zu Programm SORTZEIG: 

REM ====== Programm SORTZEIG 

PRINT "Sortieren nach dem Verfahren 'Austausch nach Auswahl" 1 
PRINT "(numerische Daten über Zeiger sortieren)." 

REM ====== Vereinbarungsteil 

1 stellemin%: Stelle mit vorläufigem Minimum 
DIM z%(6) !6 Zeiger bzw. Pointer 

DIM d(6) !6 unter DATA im Programm gespeicherte Daten 

i 

REM ====== Anweisungsteil 

FOR i%=1 TO 6 
LET z%(i%)=i% 

NEXT i% 

PRINT 

PRINT "6 Daten unsortiert:" 

FOR i%=1 TO 6 
READ d(i%) 

PRINT d(i%) 1 
NEXT i% 

DATA 102,101,109,106,104,105 
PRINT 
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PRINT "Sortierprotokoll der 6 Zeiger:" 
FOR i%=1 TO 5 
LET stelleminX=i% 

FOR jX=iX+1 TO 6 

IF d(zX(jX))<d(z%(stellemin%)) THEN 
LET stelleminX=jX 
ENDIF 
NEXT jX 

SWAP zX(iX),zX(stelleminX) 

FOR jX=1 TO 6 
PRINT zX(jX)' 

NEXT jX 
PRINT 
NEXT iX 

PRINT "6 Daten über Zeiger sortiert:" 
FOR iX=1 TO 6 
PRINT d(zX(iX)) 1 
NEXT iX 
PRINT 

PRINT "Ende." 

VOID INP(2) 

END 


Ausführung zu SORTZEIG: 


Sortieren nach dem Verfahren 'Austausch nach Auswahl 1 
(numerische Daten über Zeiger sortieren). 

6 Daten unsortiert: 

102 101 109 106 104 105 
Sortierprotokoll der 6 Zeiger: 

2 1 3 4 5 6 
2 1 3 4 5 6 
2 1 5 4 3 6 
2 1 5 6 3 4 
2 1 5 6 4 3 

6 Daten über Zeiger sortiert: 

101 102 104 105 106 109 
Ende. 


3.5.3.3 Strings unmittelbar sortieren 

Programm SORTSTRI veranschaulicht das Sortieren von Strings anhand 
des Bubble-Sort-Algorithmus. Die Vorgehensweise ist mit der 
numerischen identisch. 

Im Gegensatz zum Programm SORTNU__M handelt es sich hier aber um 
einen etwas geschickteren Bubble-Sort-Algorithmus, da die äußere 
Schleife nicht mehr durchlaufen wird, wenn die Daten schon sortiert sind. 
Dazu wird die Bool’sche Variable sortiert! eingeführt, die bei jedem 
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neuen Schleifendurchlauf den Wert TRUE erhält, aber auf FALSE gesetzt 
wird, falls ein Austausch vorgenommen wurde. Wenn am Schluß der 
äußeren Schleife sortiert! immer noch TRUE ist, kann man sicher sein, 
daß sich die Strings in der richtigen Reihenfolge befinden. 

Wie die zweite Ausführung zu SORTSTRI zeigt, kann Text mit beliebigen 
Zeichen sortiert werden. Warum kommt z.B. der String "%-Saetze" vor 
dem String "126 DM"?. Da im ASCII die Codezahl 37 für "%" vor der 
Codezahl 49 für "1" kommt. 


Codierung zu Programm SORTSTRI: 

REM ====== Programm SORTSTRI 

PRINT "Sortieren nach dem Verfahren 'Paarweiser Austausch 1 " 

PRINT "bzw. 'Bubble Sort' (Sortieren von Strings selbst)." 

i 

REM ====== Vereinbarungsteil 

1 n$(a%), a%: a% Namen in String-Array n$ gespeichert 
' sortiert!: Wahrheitswert mit FALSE: unsortiert, TRUE: sortiert 

i 

REM ====== Anweisungsteil 

PRINT 

INPUT "Anzahl der Namen";a% 

DIM n$(a%) 

PRINT a%'"Namen einzeln eintipppen:" 

FOR i%=1 TO a% 

INPUT n$(i%) 

NEXT i% 

PRINT 

PRINT "Kontrollausgabe zum Sortiervorgang:" 

REPEAT 

LET sortiert!=TRUE 
FOR i%=1 TO a% 

PRINT n$(i%) 1 
NEXT i% 

PRINT 

FOR i%=1 TO a%-1 

IF n$(i%)>n$(i%+1) THEN 
SWAP n$(i%),n$(i%+1) 

LET sortiert!=FALSE 
ENDIF 
NEXT i% 

UNTIL sortiert! 

PRINT 

PRINT "Programmende." 

VOID INP(2) 

END 
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Ausführungen zu Programm SORTSTRI: 


Sortieren nach dem Verfahren 'Paarweiser Austausch' 
bzw. 'Bubble Sort' (Sortieren von Strings selbst). 

Anzahl der Namen? 6 
6 Namen einzeln eintipppen: 

? Tim 
? OUf 
? Heiko 
? Yaaemin 
? Stefan 
? Philipp 

Kontrollausgabe zum Sortiervorgang: 

Tim Olaf Heiko Yasemin Stefan Philipp 
Olaf Heiko Tim Stefan Philipp Yasemin 
Heiko Olaf Stefan Philipp Tim Yasemin 
Heiko Olaf Philipp Stefan Tim Yasemin 

Programmende. 


Sortieren nach dem Verfahren 'Paarweiser Austausch' 
bzw. 'Bubble Sort'(Sortieren von Strings selbst). 

Anzahl der Namen? 4 
4 Namen einzeln eintipppen: 

? ATARI 
? 126 DM 
? 25500 LIRE 
? %-SATZ 

Kontrollausgabe zum Sortiervorgang: 

ATARI 126 DM 25500 LIRE X-SATZ 
126 DM 25500 LIRE X-SATZ ATARI 
126 DM X-SATZ 25500 LIRE ATARI 
X-SATZ 126 DM 25500 LIRE ATARI 

Programmende. 
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Struktogramm zum Bubble-Sort in Programm SORTSTRI: 


Eingabe: Anzahl a% und dann a% Wörter in das Array n$() 


sortiert! = TRUE setzen 


Für i% von 1 bis a°/o-l wiederhole 


n$(i°/o)<=n$(i°/o+l) 

? 


nein 


^ia 

Austausch von 
n$(i°/o) und n$(i%+l) 



sortiert! = FALSE 




Wiederhole, bis sortiert! = TRUE 


Ausgabe der a% in n$() abgelegten Wörter aufsteigend sortiert 


3.5.4 Mischen von Arrays 

Mischen heißt, Daten unter Berücksichtigung ihrer Sortierfolge zu einer 
Datenstruktur zusammenzufügen. Im Beispielprogramm MISCHDAT wird 
das 5-Elemente-Array x() und das 4-Elemente-Array y() zum 9- 
Elemente-Array z() gemischt. Ein Problem beim Mischen besteht in der 
Ende-Verarbeitung, wenn eines der Arrays vollständig eingemischt ist. In 
MISCHDAT wird zur Lösung dieses Problems als zusätzliches 6. (für x) 
bzw. 5. (für y) Element die 999 als sehr große Zahl gespeichert, um 
sicherzustellen, daß kein weiteres Element aus diesem Array entnommen 
wird. 
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Codierung zu Programm MISCHDAT: 


REM ====== Programm MISCHDAT 

PRINT "Arrays x und y zu einem Array z mischen." 

REM ====== Vereinbarungsteil 

DIM x(6),y(5),z(9) IDrei numerische Arrays 

i 

REM ====== Anweisungsteil 

PRINT 

PRINT "Datenbestand 1:" 


FOR i%=1 TO 5 !Datenbestand 1 nach Array x einiesen 

READ x(i%) 

PRINT x(i%)' 

NEXT i% 

DATA 10,20,30,40,50 

LET x(6)=999 !Endemarkierung 

PRINT 

PRINT "Datenbestand 2:" 

FOR i%=1 TO 4 !Datenbestand 2 nach Array y einiesen 

READ y(i%) 

PRINT yCi%>• 

NEXT i% 

DATA 15,20,25,45 

LET y(5)=999 !Endemarkierung 

LET i%=1 
LET j%=1 
LET k%=1 
REPEAT 

IF x(i%)<=y(j%> THEN 
LET z(k%)=x(i%) 

INC i% 

ELSE 

LET z(k%)=y(j%) 

INC j% 

ENDIF 
INC k% 

UNTIL x(i%)=999 AND y(j%)=999 
PRINT 

PRINT "Datenbestände 1 und 2 gemischt:" 

FOR k%=1 TO 9 
PRINT z(k%) 1 
NEXT k% 

END 

Ausführung zu Programm MISCHDAT: 


Arrays x und y zu einem Array z mischen 

Datenbestand 1s 
10 20 30 40 50 
Datenbestand 2: 

15 20 25 45 

Datenbestände 1 und 2 gemischt: 

10 15 20 20 25 30 40 45 50 
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Struktogramm zu Programm MISCHDAT: 


Eingabeteil: zwei Arrays x und y mit gleicher Sortierfolge 


x(i°/o)<=y(j%) ? 

nein 

ja 

y(j%) einmischen 

x(i%) einmischen 

j% erhöhen 

i°/o erhöhen 


Wiederhole, bis Ende von x() und von y() erreicht 


Ausgabeteil: ein gemischtes Array z 


Datenflußplan zu Programm MISCHDAT: 


Datenbestand 1: x(5) 



Datenbestand 2: y(4) 



Gemischter Daten¬ 
bestand 3: z(9) 


3.5.5 Gruppieren von Daten (Gruppenwechsel) 

Das Programm GRUPPDAT erwartet über die Tastatur die Mengen¬ 
angaben zu Aufträgen. Bei Wechsel der Auftragsnummer wird der 
summierte Gesamtauftrag ausgegeben. Dabei werden die Aufträge mit 
gleicher Auftragsnummer zusammengefaßt. Solche Probleme bezeicnet 
man als Verdichten von Daten oder als Gruppenwechsel. Wie wird der 
Gruppenwechsel (also der Wechsel der Auftragsnummer) in GRUPPDAT 
festgestellt? Wir unterscheiden a2% für "Auftrag neu" und al% für 
"Auftrag alt", um für den Fall a2%oal% dann die jeweils nach sl% 
aufaddierte Summe auszugeben und mit "LET sl%=0 / LET al%=a2%" 
zum nächsten Datensatz überzugehen. 
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Codierung zu Programm GRUPPDAT: 

REM ====== Programm GRUPPDAT 

PRINT "Einstufiger Gruppenwechsel 

i 

REM ====== Vereinbarungsteil 

1 a2%,m: Datensatz mit Datenfeldern Auftrag und Menge 

' a2%,s1%: Auftrag 'alt' und Gruppensumme 

i 

REM ====== Anweisungsteil 

INPUT "Auftrag, Menge";a2%,m 
LET a1%=a2% 

WH ILE a2%<>0 
WH ILE a2%=a1% 

LET s1%=s1%+m 

INPUT "Auftrag, Menge";a2%,m 
WEND 

PRINT a1%'"mit Gruppensumme"'s1% 

LET s1%=0 
LET a1%=a2% 

WEND 

PRINT "Ende." 

END 


(kein Gruppenwechsel bei a2%=a1% 

!Gruppensumme erhöhen 
!Neuen Datensatz eingeben 

!bei Gruppenwechsel: Gruppensumme ausgeben 

(Auftrag neu wird alt 


Ausführung zu Programm GRUPPDAT: 


Einstufiger Gruppenwechsel. 
Auftrag, Menge? 221.10 
Auftrag, Menge? 221.35 
Auftrag, Menge? 221.14 
Auftrag, Menge? 229.3 
221 mit Gruppensumme 59 
Auftrag, Menge? 230.75 

229 mit Gruppensurme 3 
Auftrag, Menge? 230.9 
Auftrag, Menge? OJ) 

230 mit Gruppensumme 84 
Ende. 


Im Programm GRUPPDAT liegt ein einstufiger Gruppenwechsel vor. 
Daneben können Gruppenwechsel auch mehrstufig sein. Dazu dieses 
Beispiel: Es wird nicht nur nach Aufträgen gleicher Nummer gruppiert 
(=Untergruppe), sondern zusätzlich noch nach Vertreternummern 
(=Hauptgruppe). Auch ein solcher Hauptgruppenwechsel wird durch den 
Vergleich (v2%ovl%) bzw. "Vertreter neu <> Vertreter alt" festgestellt. 
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3 Programmierkurs mit GFA-Basic 

In Abschnitt 1.3.5 hatten wir 
bzw. Files erläutert: 

vier Formen zur Organisation von Dateien 

1. Sequentielle Datei 

(Reihenfolgezugriff) 

2. Direktzugriff-Datei 

(Zugriff auf einen Datensatz direkt) 

3. Index-sequentielle Datei 

(Index als Inhaltsverzeichnis) 

4. Verkettete Dateien 

(Zeiger weist auf ein Datenfeld dersel¬ 
ben oder einer anderen Datei) 


Im folgenden wird für jede Organisationsform ein Programmbeispiel in 
BASIC angegeben und erklärt (Abschnitte 3.6 bis 3.8 und 3.11). 

Da im Zusammenhang mit Dateien häufig zeigerverkettete Listen (Linked 
Lists) und binäre Bäume als dynamische Datenstrukturen verwendet wer¬ 
den, wollen wir auch dazu zwei Beispiele betrachten (Abschnitte 3.9 und 
3.10). 

Wenden wir uns zunächst der sequentiellen Datei zu. 

Das Programm SEQUEN_M verwaltet eine sequentielle Telefondatei. 
Zur Orientierung sehen wir uns das wiedergegebene Ausführungsbeispiel 
an. 


3.6.1 Menügesteuerte Dateiverwaltung 

Das "M" im Programmnamen SEQUEN_M steht für "Menüsteuerung". 
Nach Eingabe bzw. Auswahl von RUN wird ein Menü mit zehn Wahl¬ 
möglichkeiten gezeigt. 

Zu diesem Zeitpunkt steht uns noch keine Datei zum Probieren zur Ver¬ 
fügung, sie kann aber leicht erzeugt werden, indem man unter Menü¬ 
punkt 4 wie im Beispiel fünf Sätze eingibt. 
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Telefonliste als sequentielle Datei. 


Menü zur Verwaltung der Telefon-Datei 


0 

Beenden 


1 

Laden 

der Datei 

2 

Speichern der Datei extern 

3 

Drucken 

Gesamtverzeichnis 

4 

Eingeben 

von Einträgen 

5 

Suchen 

eines Eintrags 

6 

Ändern 

eines Eintrags 

7 

Löschen 

eines Eintrags 

8 

Einfügen 

eines Eintrags 

9 

Sortieren der Gesamtdatei 


Wahl 0-9 ? 4 


Name (0=Ende)? Steinmeier 
Telefonnummer? 06262/3332 
Name (0=Ende)? Schneider 
Telefonnummer? 0721/1300165 
Name (0=Ende)? Treiber 
Telefonnummer? 0611/232323 
Name <0=Ende)? Köpfle 
Telefonnummer? 06221/44421 
Name <0=Ende)? Schönfelder 
Telefonnummer? 06203/5541 
Name (0=Ende>? 0 

Weiter mit beliebiger Taste: 


Die Datei wird dann nach Anwahl von 2 unter dem Namen TELDATEI 
abgespeichert. Eine Sicherheitsabfrage verhindert das versehentliche 
Überschreiben einer bestehenden Datei. 


Wahl 0-9 ? 2 

Name der Ausgabedatei? TELDATE1.DAT 
Bisherige Datei zerstören (ja/nein)? ja 
5 Einträge vom Hauptspeicher in die Datei TELDATE1.DAT . 

Weiter mit beliebiger Taste: 


Der Menüpunkt 6 erlaubt es, einen Eintrag zu ändern. In diesem Fall 
wird der Name "Köpfle” in "Köpfle-Krämer" geändert, die Telefon¬ 
nummer wird beibehalten. 
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Wahl 0-9 ? g 

Name des zu ändernden Eintrags? Köpflc 

Köpfte ändern in ? Köpflc-Krämer 

06221/44421 ändern in ? 06221/44421 

Köpfle-Krämer 06221/44421 korrekt (ja/nein) ? ja 

Weiter mit beliebiger Taste: 

Nach Eingabe von 7 als Menüwahl können Einträge gelöscht werden. Die 
Daten werden nach dem angegebenen Namen durchsucht. Wird ein über¬ 
einstimmender Satz gefunden, so wird angeboten, ihn zu löschen. Der 
Schlüssel kann hier generisch angegeben werden, das heißt, es werden 
immer nur soviele Stellen verglichen, wie eingegeben worden sind. Bei 
Eingabe von "R" werden alle Namen, die mit einem R beginnen, 
herausgesucht. 


Wahl 0-9 ? 7 

Name des zu löschenden Eintrags? Schönfelder 
Schönfelder wirklich löschen (ja/nein)? ja 

Weiter mit beliebiger Taste: 


Wir lassen uns nun mit der Menüwahl 3 eine Liste der Datei am 
Bildschirm ausgeben. Man sieht, daß die Namen nicht sortiert erscheinen. 
Die Ausgabe der Sätze erfolgt in der Reihenfolge, wie sie im Speicher 
stehen. Die Datei beinhaltet nun vier Sätze, da wir ja einen gelöscht 
haben. 


Wahl 0-9 ? 3 


Name 

Telefonnummer 

Steinmeier 

06262/3332 

Schneider 

0721/1300165 

Treiber 

0611/232323 

Köpfle-Krämer 

06221/44421 

Dateiende nach 4 Einträgen. 

Weiter mit beliebiger Taste: 


Wollen wir eine sortierte Ausgabe, so muß die Datei zunächst mit 
Menüpunkt 9 sortiert werden. Eine erneute Anwahl von Punkt 3 ergibt 
dann die gewünschte sortierte Liste. 
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Wahl 0-9 ? 9 

Sortieren von 4 Datensätzen beginnt. 
Sortieren im Hauptspeicher beendet. 

Weiter mit beliebiger Taste: 


Wahl 0-9 ? 3 


Name 

Telefonnummer 

Köpfle-Krämer 

06221/44421 

Schneider 

0721/1300165 

Steinmeier 

06262/3332 

Treiber 

0611/232323 

Datei ende nach 4 Einträgen. 

Weiter mit beliebiger 

Taste: 


3.6.2 Dateiweiser Datenverkehr 

Mit der Menüwahl 1 wird die Telefondatei komplett in den Hauptspeicher 
eingelesen. Sie wird dort im Array n$() (für die Namen) sowie t$() (für 
die Telefonnummern) abgelegt und verarbeitet (Menüwahl 3-9). Mit der 
Menüwahl 2 kann die Datei nach Ende der Verarbeitung wieder 
abgespeichert werden. Der Datentransport zwischen Externspeicher 
(Diskette) und Internspeicher (Hauptspeicher) erfaßt immer die ganze 
Datei als Einheit. Man spricht darum vom dateiweisen Datenverkehr. 

Dem Vorteil der bequemen, schnellen (da internen) Verarbeitung steht der 
Nachteil gegenüber, daß die Datei größenmäßig durch den 
Hauptspeicherplatz begrenzt ist. Das Programm DIREKT_M im Abschnitt 
3.7 zeigt den satzweisen Datenverkehr als Gegenstück hierzu. 

Beim dateiweisen Datenverkehr wird zumeist das Prinzip der parallelen 
Arrays (s. 3.3.2.3) angewandt. Ein Datensatz besteht aus mehreren 
Datenfeldern, die in verschiedenen Arrays gespeichert werden. Die 
Elemente der Arrays mit gleichem Index gehören zu einem Datensatz. Die 
Abbildung zeigt zwei parallele Arrays für die zwei Datenfelder des 
Datensatzes der TELDATEI, z.B. gehören der Name in n$(5) und die 
Telefonnummer in t$(5) zum gleichen Datensatz. 
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Index i% 

Namen n$(i%): 

Tel-Nummern t$(i%): 

(1) 

Steinmeier 

06262/3332 

»Datensatz 1 

(2) 

Schneider 

0721/1300165 

»Datensatz 2 

(3) 

Treiber 

0611/232323 

»Datensatz 3 

(4) 

Köpfle 

06221/44421 

»Datensatz 4 

(5) 

Schönfelder 

06203/5541 

»Datensatz 5 


(n%) »Datensatz n% 

Ende der Datei 

Zwei Arrays (intern) nehmen eine Datei (extern) auf. 

Prinzip der parallelen Arrays am Beispiel der TELDATEI 
Struktogramm zu Programm SEQUEN-M: 
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3.6.3 Verarbeitung von Arrays in den Unterprogrammen 

Zum Hauptprogramm: Wie auch das Struktogramm zu SEQUEN_M auf¬ 
zeigt, besteht das Programm aus einer Wiederholungsstruktur (Schleife), in 
die eine Auswahlstruktur (Fallabfrage mit SELECT ... CASE) einge¬ 
schachtelt ist. 

Zum Unterprogramm Laden: Hier erkennt man den für die Dateiver¬ 
waltung typischen 3er-Schritt(vgl. Abschnitt 1.3.5.4): 

1. Datei öffnen: mit OPEN ... f$ mit dem in f$ enthaltenen Namen. 

2. Datei verarbeiten: Mit INPUT #1 nacheinander alle 2-Kompo- 
nenten-Sätze der Datei nach n$() und t$() einiesen. Der erste 
Dateieintrag ist die Satzanzahl n%. 

3. Datei schließen: mit CLOSE #1. Die Datei ist nicht verändert 
worden. 

Mit dem OPEN-Befehl wird dem System mitgeteilt, daß wir einen 
Datenkanal benötigen, über den wir eine Datei lesen wollen. Dazu müssen 
wir die Kanalnummer, den Dateinamen und einen "Modus" mit angeben. 
Der Modus gibt Auskunft darüber, wie wir die Datei bearbeiten wollen. 
Das Format des OPEN-Befehls im Überblick: 

OPEN "Modus",#Datenkanal/'Dateiname" 

- Modus "O" wie "Output" zum Schreiben einer sequentiellen Datei. Wenn 
die Datei noch nicht existiert, wird sie zuerst angelegt. 

- Modus "I" wie "Input" zum Lesen einer sequentiellen Datei. 

- Modus "A" wie "Append" zum Erweitern einer sequentiellen Datei. 

Neue Datensätze werden hinten angehängt. 

- Modus "U" wie "Update" zum Lesen und Schreiben einer sequentiellen 
Datei. 

- Modus "R" wie "Random" zum Lesen und Schreiben einer 
Direktzugriff-Datei. 

Haben wir eine Datei auf einem Datenkanal geöffnet, wird sie in allen 
folgenden Dateibefehlen über diese Kanalnummer angesprochen. Zum 
Schreiben und Lesen auf eine sequentielle Datei werden in dem 
Programm SEQUEN_M die Befehle PRINT# und INPUT# verwendet. 
Sie funktionieren genau wie die bekannten Befehle PRINT und INPUT 
mit der Ausnahme, daß bei PRINT der Zusatz AT() nicht erlaubt ist. 
Außerdem erscheint die Ausgabe nicht am Bildschirm, sondern wird über 
den angegebenen Datenkanal auf die Datei geschrieben. 
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Zum Unterprogramm Speichern: Als erstes wird die Satzanzahl n% in die 
Datei geschrieben, dann die n% Datensätze jeweils bestehend aus Name 
und Telefonnummer. 

Zum Unterprogramm Suchen: Hier wird rein sequentiell gesucht. Die 
WHILE-Schleife durchsucht immer den ganzen Datenbestand und gibt alle 
Sätze aus, deren Namenfelder ( n$() ) bis zur Länge des Suchschlüssels 
mit diesem übereinstimmen. 

Zum Unterprogramm (physisch) Loeschen: Physisch löschen bedeutet 
tatsächlich löschen und nicht nur als "eigentlich gelöscht" vermerken. Die 
Zählerschleife bewirkt, daß alle Einträge ab dem zu löschenden Eintrag 
um ein Element in den Arrays n$() und t$() vorgerückt werden. Soll der 
letzte Eintrag gelöscht werden, so wird nur die Anzahl der Einträge n% 
vermindert. Hier wird diese Aufgabe mit einer Zählerschleife erledigt, es 
ginge aber auch etwas eleganter: Der Befehl DELETE erlaubt es, ein 
Element in einem Array zu löschen. 

Zum Unterprogramm Einfuegen: Die Zählerschleife 
FOR z%=n% TO w%+2 STEP -1 

rückt vom letzten Satz n% ausgehend Einträge um jeweils eine Position 
nach hinten, um danach über INPUT den neuen Eintrag hinter den Satz 
mit der Nummer w% einzufügen. Auch hier könnte die Lösung mit einem 
anderen Befehl codiert werden: Der INSERT-Befehl von GFA-Basic fügt 
ein Element in ein Array ein. 

Zum Unterprogramm Sortieren: Wie in Programm SORTNU_M (vgl. 
Abschnitt 3.5.3.1) wird das "Sortieren durch Austausch nach Auswahl" 
verwendet, jedoch mit folgenden Abweichungen: 

Anstelle von Zahlen werden Strings sortiert. 

Die Anzahl der Sortierbegriffe n% ist variabel. 


Sequentielle Telefondatei auf Diskette: 

Die sequentielle Datei TELDATEI ist als Textdatei bzw. ASCII-Datei auf 
Diskette abgespeichert. Wir haben zwei Möglichkeiten kennengelernt, um 
uns den Inhalt dieser Textdatei zeigen zu lassen: 

- Sequentielles Lesen durch INPUT #1 und darauffolgende Ausgabe 
durch PRINT. 

- Anklicken des Piktogrammes der Datei. 
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Unter dem Betriebssystem GEM des Atari kann man sich durch zweima¬ 
liges Anklicken des Piktogrammes mit der Bezeichnung TELDATEI den 
derzeitigen Inhalt der Datei ausgeben lassen. 

Wir erkennen: 

- Variable Datensatzlänge bei der sequentiellen Datei. 

- Trennungszeichen ", M zwischen Datenfeldern. 

- Trennungszeichen CHR$(13), das entspricht RETURN, zwischen den 
Datensätzen. 

Der Inhalt der sequentiellen Datei am Bildschirm ausgegeben.: 


5 

S t einmeier,06262/3332 
Schneider,0721/1300165 
Treiber,0611/232323 
Köpfle,06221/44421 
Schönfelder,06203/5541 

Der erste Eintrag enthält die Satzanzahl 5. Es folgen fünf Datensätze mit 
jeweils zwei Einträgen. Das Trennungszeichen ", M wird in Unterprogramm 
Speichern des Programms SEQUEN_M geschrieben. 


Codierung zu Programm SEQUEN__M: 


• ====== Programm SEQUEN-M 

PRINT "Telefonliste als sequentielle Datei." 
PRINT 


i ====== Vereinbarungsteil 

DIM n$(100) ! 100-Elemente-Array für die Namen 

DIM t$(100) ! 100-Elemente-Array für die Telefonnummern 

1 w,w$,a$ Wahlmöglichkeit bei Menüauswahl 

1 f$ Dateiname (Filename) für die sequentielle Datei 

1 i%,z%,f! Laufvariablen bzw. Flagge (Flag) 
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REM ====== Anweisungsteil 

LET w=1 
UH ILE w<>0 

GOSUB menue__ausgeben 
CLS 

SELECT w 
CASE 1 

lad(n%,n$(),t$()) 

CASE 2 

speich(n%,n$(),t$()) 

CASE 3 

druck(n%,n$(),t$()) 

CASE 4 

eingeb(n%,n$(),t$()) 

CASE 5 

such(n%,n$(),t$()) 

CASE 6 

aend(n%,n$(),t$()) 

CASE 7 

loesch(n%,n$(),t$()) 

CASE 8 

einfueg(n%,n$(),t$()) 

CASE 9 

sortiere(n%,n$(), t$()) 

ENDSELECT 

PRINT 

PRINT "Weiter mit beliebiger Taste:"; 

VOID INP(2) ! Wartet auf einen Tastendruck 

CLS 
WENO 

PRINT "Programmende." 

END 


PROCEDURE menue_ausgeben 
DO 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


"Menü zur Verwaltung der Telefon-Datei" 


ii________n 

" 0 Beenden" 

" 1 Laden der Datei" 

" 2 Speichern der Datei extern" 

" 3 Drucken Gesamtverzeichnis" 

" 4 Eingeben von Einträgen" 

" 5 Suchen eines Eintrags" 

" 6 Ändern eines Eintrags" 

" 7 Löschen eines Eintrags" 

" 8 Einfügen eines Eintrags" 

" 9 Sortieren der Gesamtdatei" 

ii..________ii 


INPUT "Wahl 0-9 ";u$ 
w=VAL(w$) 

EXIT IF w>=0 AND w<=9 AND LEN(w$)=1 

PRINT "Bitte nur ganze Zahlen zwischen 0 und 9 eingeben. 11 
LOOP 
RETURN 
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PROCEDURE lad(VAR nX,t$(),n$0) 

LOCAL iX 

INPUT "Name der Datei";f$ 

OPEN 

INPUT #1,nX 
FOR iX=1 TO n% 

INPUT #1,n$(iX),t$(i%) 

NEXT iX 

PRINT n%;" Einträge von Datei in den Hauptspeicher." 

CLOSE #1 
RETURN 
■ 

PROCEDURE speich(VAR n%,t$(),n$()) 

LOCAL i%,a$ 

INPUT "Name der Ausgabedatei";f$ 

INPUT "Bisherige Datei zerstören (ja/nein)";a$ 

IF a$="ja" THEN 
OPEN "0",#1,f$ 

PRINT #1,n% 

FOR i%=1 TO n% 

PRINT #1,n$(i%);",";t$(i%) 

NEXT i% 

PRINT n%;" Einträge vom Hauptspeicher in die Datei 
CLOSE #1 
ENDIF 
RETURN 
■ 

PROCEDURE druck(nX,VAR n$0,t$0) 

LOCAL iX 

PRINT "Name Telefonnummer" 

PRINT .. 

LET iX=1 
WH ILE iX<=nX 

PRINT n$(iX);TAB(24);t$(i%) 

IF INT(iX/10)=iX/10 THEN 
INPUT "Weiter blättern";a$ 

ENDIF 
INC iX 
WEND 

PRINT "Dateiende nach ";n%;" Einträgen." 

RETURN 

I 

PROCEDURE eingeb(VAR n%,n$(),t$()) 

REPEAT 
INC n% 

INPUT "Name (0=Ende)";n$(n%) 

IF n$(n%)<>"0" 

INPUT "Telefonnummer";t$(n%) 

ENDIF 

UNTIL n$(n%)="0" 

DEC n% 

RETURN 

i 
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PROCEDURE such(n%,VAR n$(),t$()) 

LOCAL f!,i%,W$ 

INPUT "Zu suchender Name";w$ 

LET fl=FALSE ! Flagge gesenkt 

LET i%=1 
UHILE i%<=n% 

IF LEFT$(n$(i%),LEN(w$))=w$ THEN 
PRINT "Gefunden : ";n$(i%),t$(i%) 

LET f!=TRUE 
ENDIF 
INC i% 

UEND 

IF NOT f! THEN 
PRINT w$;" nicht gefunden." 

ENDIF 

RETURN 

I 

PROCEDURE aend(n%,VAR n$(),t$()) 

LOCAL f!,i%,w$,a$ 

INPUT "Name des zu ändernden Eintrags";w$ 

LET f!=FALSE 
LET i%=1 
WH ILE i%<=n% 

IF LEFT$(n$(i%),LEN(w$))=w$ 

WH ILE a$<>"ja" 

PRINT n$(i%);" ändern in »; 

INPUT n$(i%) 

PRINT t$(i%);" ändern in "; 

INPUT t$(i%) 

PRINT n$(i%);" ";t$(i%);" korrekt (ja/nein) "; 
INPUT a$ 

WEND 

LET f!=TRUE 
ENDIF 
INC i% 

WEND 

IF NOT f! 

PRINT "Eintrag ";w$," nicht gefunden." 

ENDIF 

RETURN 
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PROCEDURE loesch(VAR nX,n$O f t$<» 

LOCAL f!,iX,w$,a$ 

INPUT "Name des zu löschenden Eintrags";u$ 

LET f!=FALSE 
LET i%=1 
UH ILE i%<=n% 

IF LEFT$(n$(i%),LEN(w$))=w$ THEN 
PRINT n$(iX);" wirklich löschen (ja/nein)"; 

INPUT a$ 

IF a$="ja" THEN 
IF iX<n% THEN 
FOR z%=i% TO n%-1 
LET n$(z%)=n$(z%+1) 

LET t$(z%)=t$(z%+1) 

NEXT z% 

ENDIF 
DEC n% 

DEC iX 
ENDIF 

LET f!=TRUE 
ENDIF 
INC iX 
UEND 

IF NOT f! THEN 

PRINT w$;" nicht gefunden, kein Löschen möglich." 
ENDIF 
RETURN 

i 

PROCEDURE einfueg(VAR nX,n$(),t$<)) 

LOCAL wX,zX 

PRINT "Datei hat ";nX;" Einträge. Nach welchem" 

INPUT "Eintrag einfügen (Satznummer tippen)";wX 
LET nX=nX+1 

FOR zX=nX TO wX+2 STEP -1 
LET n$(zX)=n$(zX-1) 

LET t$(zX)=t$(zX-1) 

NEXT zX 

PRINT "Nachfolgende Einträge sind verschoben." 

INPUT "Einzufügender Name ";n$(wX+1) 

INPUT "Einzufügende Nummer ";t$(wX+1) 

RETURN 
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PROCEDURE sortiere(n%,VAR n$(),t$()) 

LOCAL i%,z%,stellmin%,nammin% 

PRINT "Sortieren von ,, ;n%;" Datensätzen beginnt." 

FOR i%=1 TO n%-1 ! Sortiermethode 

LET stellmin%=i% ! "Austausch nach Auswahl" 

LET nammin$=n$(i%) 

LET telmin$=t$(i%) 

FOR z%=(i%+1) TO n% 

IF n$(z%)<nammin$ THEN 
LET stellmin%=z% 

LET nammin$=n$(z%) 

LET telmin$=t$(z%) 

ENDIF 
NEXT z% 

LET n$(stellmin%)=n$(i%) 

LET n$(i%)=nammin$ 

LET t$(stellmin%)=t$(i%) 

LET t$(i%)=telmin$ 

NEXT i% 

PRINT "Sortieren im Hauptspeicher beendet." 

RETURN 
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Im Abschnitt 3.6 haben wir die sequentielle Datei kennengelernt, bei der 
die Sätze nur hintereinander gelesen werden können. Bei der Direktzu¬ 
griff- oder Random-Datei kann auch auf einen einzelnen Datensatz direkt 
zugegriffen werden. Die folgenden Sprachmittel ermöglichen die Verar¬ 
beitung von Direktzugriff-Dateien in GFA-Basic: 

Öffnen der Direktzugriff-Datei mit dem OPEN-Befehl: 

Eine Direktzugriff-Datei hat im Gegensatz zur sequentiellen Datei eine 
feste Datensatzlänge , die in der OPEN-Anweisung angegeben werden 
muß: 


OPEN "R M ,#1."ARTDATEI",29 

<-Datensatzlänge fest 

•-Dateiname 

-Kanalnummer 

-Modus (Random) 

Die Datensatzlänge einer einmal eingerichteten Datei kann später nicht 
mehr verändert werden. 

Lesen und Schreiben von Datensätzen: 

Bei der Direktzugriff-Datei werden die Befehl GET# und PUT# zum 
Lesen bzw. Schreiben von Datensätzen benutzt (bei der sequentiellen Da¬ 
tei: INPUT# und PRINT#). Es muß nur die Nummer des Kanals, auf 
dem die Datei eröffnet worden ist, mit angegeben werden. Optional ist 
die Angabe der Satznummer. Fehlt die Satznummer, so wird derjenige 
Satz gelesen, der dem zuletzt mit GET gelesenen Datensatz folgt. 

GET #1,10 
GET #1 
GET #1 

Das Beispiel liest den Datensatz mit der Nummer 10 und sequentiell zwei 
weitere Sätze ein, also 11 und 12. Bei PUT funktioniert das genauso, wird 
die Satznummer nicht mit angegeben, so wird sequentiell weiter geschrie¬ 
ben. Natürlich kann dies auch durch die Anweisung GET #l,s (PUT 
#l,s) erfolgen, wenn s in einer Schleife jeweils um 1 hochgezählt wird. 
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Der Dateipuffer: 

Der Dateipuffer ist eine Art "Fenster", durch den die Daten durchgereicht 
werden. Er belegt einen Bereich des Hauptspeichers von der Länge eines 
Datensatzes. Nach dem Zugriff durch einen GET-Befehl befindet sich der 
gelesene Datensatz in diesem Speicherbereich und muß durch das Pro¬ 
gramm zur Weiterverarbeitung dort abgerufen werden. Um einen Satz zu 
schreiben, muß erst der Dateipuffer gefüllt werden, dann kann der PUT- 
Befehl ausgeführt werden. 

Um den Dateipuffer ansprechen zu können, werden Bereiche des Puffers 
mit Namen versehen. Dieses erledigt der Befehl FIELD. 

FIELO #1,4 AS p1$, 6 AS p2$ 

Das Beispiel des FIELD-Befehls benennt die ersten vier Stellen (Bytes) 
des Dateipuffers der Datei auf Kanal 1 mit dem Namen pl$. Die folgen¬ 
den sechs Stellen werden mit p2$ bezeichnet. Die Namen können frei ge¬ 
wählt werden, sie müssen aber immer vom Typ String sein und sollten in 
einem Programm nicht in einem anderen Zusammenhang benutzt werden. 
Man bezeichnet die Variablen, die den Dateipuffer einteilen, auch als 
Puffervariablen. 

Da Puffervariablen Strings sind, müssen numerische Werte umgewandelt 
werden, bevor sie in den Dateipuffer gebracht werden können. Dazu ver¬ 
wenden wir die Funktionen MKI$, MKL$, MKS$, MKF$ und MKD$ 
und den Befehl LSET, letzterer setzt Strings linksbündig in Puffer¬ 
variablen ein. LSET pl$=MKL$(1002) bewirkt z.B. folgendes: Wandle die 
Integer-Zahl 1002 in einen String der Länge 4 um, setze diesen linksbün¬ 
dig in die Puffervariable pl$ und fülle den Rest von pl$ mit Leerstellen 
auf. 


Schreiben und Lesen über den Dateipuffer bei der Direktzugriff-Datei: 


LSET/RSET 
mit MKx$ 


H 


l -- LET/PR1NT_I E 

mit CVx 


PUT --^ 


Programm 


Dateipuffer 


Datei 


GET—J 
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Schreiben und Lesen bei der Sequentiellen Datei: 



Zugriff auf die sequentielle Datei und die Direktzugriff-Datei 


Wie schon erwähnt, stehen die Daten im Dateipuffer in einem anderen 
Format, als wir sie gebrauchen können, darum müssen sie umgewandelt 
werden. GFA-Basic stellt dazu 10 verschiedene Befehle bereit, die im fol¬ 
genden kurz beschrieben werden sollen. 


Vor dem Schreiben mit PUT: Werte in Puffervariablen setzen. 

lset pH=MKi$(iooo) Zahl 1000 vom Datentyp Integer in 

String mit Länge 2 Byte. 

lset p2S=MKL$(a%) Variable a% vom Typ Integer in String 

mit Länge 4 Byte. 

lset p3$=MKS$(2.5) Zahl 2.5 vom Typ Real in String mit 

Länge 4 Byte (ATARI-Basic kompa¬ 
tibles Format). 

lset p4$=MKF$(0.09> Zahl 0.09 vom Typ Real in String mit 

Länge 6 Byte (GFA-Basic 2.0 Format). 

lset p5$=mkd$(s) Variable vom Typ Real in String mit 

Länge 8 Byte (GFA-Basic 3.0 Format). 


LSET p6$="ROSE 


STRING "ROSE" p6$ zuweisen. 
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Nach dem Lesen mit GET: Werte aus Puffervariablen entnehmen. 


LET a1X=CVI(p1$) 
LET a2X-CVL(p2$) 
LET a3-CVS(p3$) 

LET a4=CVF(p4$) 

LET a5=CVD(p5$) 

LET a6$=p6$ 


2-Byte-String in pl$ in 16 Bit-Integer 
umwandeln und al% zuweisen. 
4-Byte-String in p2$ in 32 Bit-Integer 
umwandeln und a2% zuweisen. 
4-Byte-String in p3$ (Atari-Basic 
Format) in Real-Zahl umwandeln und 
a3 zuweisen. 

6-Byte-String in p4$ (GFA 2.0 For¬ 
mat) in Real-Zahl umwandeln und a4 
zuweisen. 

8-Byte String in p5$ (GFA 3.0 For¬ 
mat) in Real-Zahl umwandeln und a5 
zuweisen. 

p6$ bleibt String (stets verschiedene 
Namen verwenden!) 


Datenfelder in den Dateipuffer setzen und aus dem Dateipuffer nehmen 


3.7.1 Artikeldatei als Beispiel einer Direktzugriff-Datei 

Unser Beispielprogramm verdeutlicht das Arbeiten mit einer Direktzu¬ 
griff-Datei anhand einer Artikeldatei. Die Ausführung zu diesem Pro¬ 
gramm ähnelt der von Programm SEQUEN_M, weil beide menügesteuert 
ablaufen, dennoch weicht das Programm DIREKT_M in einigen Punkten 
ab: 

- Direktzugriff-Datei anstelle einer sequentiellen Datei. 

- Verkettung von fünf eigenständigen Programmen (Overlay). 

- Satzweiser Datenverkehr anstelle dateiweisem Datenverkehr. 

- Direkte Adressierung des Datensatzes. 

Die Datensätze der Artikeldatei namens ARTDATEI sind 29 Stellen lang 
und bestehen aus jeweils vier Datenfeldern. 
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3 Programmierkurs mit GFA-Basic 


Inhalt: 

Artikel¬ 

nummer 

Bezeichnung 

Menge 

Stück¬ 

preis 

Stellen: 

4 

15 

4 

6 

(Datentyp) 

Integer 

String 

Integer 

Real 

Variablenname 

al 

a2$ 

a3 

a4 

(Name Puffer) 

pl$ 

p2$ 

p3$ 

p4$ 

Beispiel: 

102 

ORCHIDEE 

50 

27.50 


Datensatz-Beschreibung für die ARTDATEI 


Im folgenden soll an einem Beispiel noch einmal verdeutlicht werden, wie 
die typische Verarbeitung einer Direktzugriff-Datei aussieht (mit dem 
Datensatz aus der Artikeldatei). 


1) Datei eröffnen und Dateipuffer aufteilen 


open "R",#i,"A rtdatei",29 Datensatzlänge 29 fest. 

field #1,4 as pi$, 15 as p2$,4 as Dateipuffer mit vier Feldern. 

p3$,6 AS p4$ 


2) Datensatz mit Satznummer 19 direkt schreiben 

lset pi$=MKL$(loi9) Satz linksbündig in Dateipuffer setzen 

lset p2$="iris" und dann schreiben. 

LSET p3$=MKL$(80) 

LSET P4$=MKF$(9.55) 

PUT #1,19 


3) Datensatz mit Satznummer 2 direkt lesen 


get #1,2 Satz lesen und aus Dateipuffer in die 

let ai%=cvL(pi$) Satzvariablen bringen. 

LET a2$=p2$ 

LET a3%=CVL(p3$) 

LET a4=CVF(p4$) 

PRINT "2. Satz:";a1%,a2$,a3%,a4 
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Ausführung zu Programm DIREKT_M: 

Da wir bis jetzt noch keine Datei angelegt haben, wollen wir dies 
zunächst durchführen. Nach Anwahl des Menüpunktes 1 muß der Da¬ 
teiname der neuen Datei eingegeben werden. Eine Sicherheitsabfrage ver¬ 
hindert auch hier wieder das versehentliche Überschreiben einer beste¬ 
henden Datei. Da die Datei mit Leersätzen initialisiert werden soll, wird 
noch nach der Satzanzahl gefragt. Werden später mehr Sätze benötigt, so 
wird die Datei automatisch erweitert. 


Verwaltung einer Artikeldatei 


1 = Neue Datei anlegen 

2 = Datensätze schreiben 

3 = Datensätze lesen 

4 = Bestand fortschreiben 

5 * Dateizugriff beenden 

Wahl 1-5? 1 


Dateiname? ARTDATEI 

... diese Datei wirklich löschen und neu anlegen (j/n)? i 
Datei ARTDATEI gelöscht. 

Datei ARTDATEI neu geöffnet. 

Vorgesehene Satzanzahl? 20 
20 Leersätze geschrieben. 


Wir geben nun 4 Sätze mit Satznummer und den zugehörigen Daten ein. 
Die Sätze befinden sich nach der Eingabe schon auf der Diskette, im 
Gegensatz zur sequentiellen Datei, wo sich die Daten bis zum Speichern 
(Auswahl im Menü) im Hauptspeicher befinden. 


Wahl 1-5? 2 

Sätze schreiben (0=Ende). 

Nummer, Bez., Bestand, Preis : 1002.Orchidee.50.27.5 
Nummer, Bez., Bestand, Preis : 1001 .Clemati8.30.19.25 
Nummer, Bez., Bestand, Preis : 1019.1ria.80.9.55 
Nummer, Bez., Bestand, Preis : 1011 .Lilie,23,14.05 
Nummer, Bez., Bestand, Preis : 0.0.0.0 
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Mit der Auswahl 3 des Menüs kann man sich beliebige Sätze anhand der 
Artikelnummer ausgeben lassen: 


Wahl 1-5? s 

Angelegte Datensätze : 20 
Artikel nimmer (Ende=negativ) ? 1002 
Artikelntimer : 1002 
Bezeichnung : Orchidee 
Bestandsmenge : 50 
Stückpreis : 27.5 

Artikelnummer (Ende=negativ) ? 1019 
Artikelnummer : 1019 
Bezeichnung s Iris 
Bestandsmenge : 80 
Stückpreis : 9.55 

Artikelnummer (Ende=negativ) ? 


Wahl 1-5? 5 
Programmende. 


3.7.2 Overlay durch Verketten von Programmen 

Als Menüprogramm ruft das Programm DIREKT_M je nach Menüwahl 
durch die Anweisung 

CHAIN programmname 

eines der vier Programme 

DIREKT__A Eine Direktzugriff-Datei leer Anlegen 
DIREKTES Datensätze direkt auf Datei Schreiben 
DIREKT^L Einen bestimmten Datensatz direkt Lesen 
DIREKT_JF Satz mit aktualisiertem Lagerbestand Fortschreiben 

auf. Durch den Aufruf mit CHAIN wird das Programm DIREKTEM 
gelöscht und im Hauptspeicher tritt an seine Stelle das jeweils 
aufgerufene Programm. Man bezeichnet diesen Vorgang auch als 
Überlagerung oder Overlay-Technik. 
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Nach Ausführung eines aufgerufenen Programmes lädt dieses durch 

CHAIN "DIREKTEM.GFA" 

das Menüprogramm wieder in den Hauptspeicher. Mit dem Overlay wer¬ 
den alle vom aufrufenden Programm bislang erzeugten Variablenwerte 
zerstört. GFA-Basic erwartet, daß die Programme, die mit CHAIN 
gestartet werden sollen mit SAVE abgespeichert worden sind, also die 
Extension "BAS" (bei Version 2.0) oder "GFA" (bei Version 3.0) haben. 
Die Extension muß beim Programmnamen im CHAIN-Befehl mit angege¬ 
ben werden. 


3.7.3 Datensatzweiser Daten verkehr 

Das Programm SEQUEN_M hatte im dateiweisen Datenverkehr zu Be¬ 
ginn die gesamte Datei in den Hauptspeicher eingelesen und in Arrays 
abgelegt. Bei der durch das Programm DIREKT_M verwalteten Artikel¬ 
datei hingegen wird jeweils unmittelbar nach der Anforderung ein 
einzelner Satz gelesen, geschrieben oder geändert. 

Wir bezeichneten dies als "datensatzweisen Datenverkehr". Die Artikeldatei 
kann damit natürlich größer sein als der verfügbare Hauptspeicherplatz, 
da zwischen dem externen und dem internen Speicher stets nur ein Da¬ 
tensatz transportiert wird. Wie zeigt sich der datensatzweise Datenverkehr 
in der Codierung? In jedem Programm findet sich mindestens eine An¬ 
weisung mit einem Dateizugriff (PUT zum Schreiben oder GET zum Le¬ 
sen). 


RAM als Internspeicher: 
Benutzer-RAM 

LSET/RSET 


Diskette als Externspeicher: 
Dateipuffer Datei 

"Schreiben" PUT 



LET/PRINT "Lesen" GET 


Datensatzweiser Datenverkehr mit GET und PUT 
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Codierung zu Programm DIREKT_M: 

REH ====== Programm DIREKT_M 

1 Menüprogramm (Abkürzung M im Programmnamen) 

1 Verwaltung einer Artikeldatei als Direktzugriff-Datei. 

REM ====== Vereinbarungsteil 

■ e$,e Eingabe bei der Menüauswahl 

1 i% Zählervariable 

■ 

REM ====== Anweisungsteil 

i 

REPEAT 

PRINT 

PRINT " Verwaltung einer Artikeldatei" 

PRINT ".-." 

PRINT 11 1 = Neue Datei anlegen " 

PRINT " 2 = Datensätze schreiben " 

PRINT " 3 = Datensätze lesen " 

PRINT " 4 = Bestand fortschreiben " 

PRINT " 5 = Dateizugriff beenden " 

PRINT 

INPUT "Wahl 1-5";e$ 

PRINT 

LET e=VAL(e$) 

SELECT e 
CASE 1 

CHAIN "DIREKT_A.GFA" 

CASE 2 

CHAIN "DIREKTES.GFA" 

CASE 3 

CHAIN "DIREKT J..GFA" 

CASE 4 

CHAIN "DIREKT_F.GFA" 

CASE 5 

PRINT "Programmende." 

DEFAULT 

PRINT "Eingabe bitte zwischen 1 und 5." 

ENDSELECT 
UNTIL e=5 
END 

Im Programm DIREKT_A wird nach einer Sicherheitsabfrage zunächst 
geprüft, ob die zu löschende Datei bereits existiert: 

IF EXIST(f$) 

Die Funktion EXIST(Programmname) liefert TRUE, wenn die Datei 
gefunden wurde, sonst FALSE. Diese Abfrage ist notwendig, denn wenn 
die Datei noch nicht existiert, braucht sie auch nicht gelöscht zu werden. 
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Der Befehl 

KILL f$ 

löscht die Datei, sodaß sie anschließend neu angelegt werden kann. 


Codierung zu Programm DIREKTA: 

REM ====== Programm DIREKT_A 

• Programm zum Anlegen (A) einer Datei: 

' "Alte" Datei löschen,w 

1 "neue" Datei generieren und mit Leerssätzen beschreiben. 


REM ====== Vereinbarungsteil 

1 f$ Name der Direktzugriff-Datei 

1 anz Anzahl der Datensätze 

1 p1$,p2$,p3$,p4$ Datensatz mit 4 Datenfeldern im Dateipuffer 

1 s% Satznummer bzw. Datensatznummer 

1 e$ Eingabestring 

i 

REM ====== Anweisungsteil 

INPUT "Dateiname";f$ 

PRINT "... diese Datei wirklich löschen und neu anlegen (j/n)?" 
INPUT e$ 

IF e$="j" THEN 


IF EXIST(f$) THEN 
KILL f$ 

PRINT "Datei gelöscht." 

ENDIF 

OPEN "R",#1,f$,29 

FIELD #1,4 AS p1$,15 AS p2$,4 AS p3$,6 AS p4$ 
PRINT "Datei neu geöffnet." 

INPUT "Vorgesehene Satzanzahl";anz% 

LSET p1$=MKL$(0) 

LSET p2$=" " 

LSET p3$=MKL$(0) 

LSET p4$=MKF$(0) 

FOR s%=1 TO anz% 

PUT #1,s% 

NEXT s% 

PRINT anz%;" Leersätze geschrieben." 

CLOSE #1 
ENDIF 


CHAIN "DIREKT M.GFA" 
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3 Programmierkurs mit GFA-Basic 


Im Programm DIREKT_F kann es Vorkommen, daß der Benutzer eine 
Artikelnummer eingibt, zu der kein Datensatz angelegt ist. Damit das 
Programm in diesem Fall nicht abbricht, wird mit dem Befehl 

ON ERROR GOSUB fehlerroutine 

der Programmfluß im Fehlerfall in ein Unterprogramm umgelenkt. Wie 
der ON ERROR-Befehl genau funktioniert werden Sie in Kapitel 3.12 
noch lernen. 


Codierung zu Programm DIREKT_F: 

REM ====== Programm DIREKT__F 

1 Fortschreibungsprogramm (F) 

1 Einen Satz aus der Artikeldatei suchen, zeigen und seinen Bestand ändern, 
1 d.h. fortschreiben. 


REM ====== Vereinbarungsteil 

1 ARTDATEI Direktzugriff-Datei 

1 a2%,a2$,a3%,a4 Datensatz mit 4 Datenfeldern im Programm 

1 p1$,p2$,p3$,p4$ Datensatz mit 4 Datenfeldern im Dateipuffer 

1 such% Artikelnummer als Suchbegriff 

1 zuab Zu- oder Abnahme bei Bestandsänderung 

1 s Satznummer zur direkten Adressierung 

1 fehler! Fehler bei Dateizugriff 

i 

REM ====== Anweisungsteil 


OPEN "R",#1,"ARTDATEI",29 

FIELD #1,4 AS p1$,15 AS p2$,4 AS p3$,6 AS p4$ 

INPUT "ArtikeInummer zur Fortschreibung";such% 

LET s%=such%-1000 
fehler!=FALSE 

ON ERROR GOSUB fehlerroutine 
GET #1,s% 

IF NOT fehler! THEN 
LET a1%=CVL(p1$) 

LET a2$=p2$ 

LET a3%=CVL(p3$) 

LET a4=CVF(p4$) 

IF a1%<>0 THEN 

PRINT "Artikelnummer : ";a1% 

PRINT "Bezeichnung : ";a2$ 

PRINT "Bestandsmenge : ";a3% 

PRINT "Stückpreis : ";ROUND(a4,2) 

INPUT "Bestandsänderung +- ";zuab% 

LET a3%=a3%+zuab% ! Fortschreibung des Bestandes a3% 

LSET p3$=MKL$(a3%) 

PUT #1,s% 

PRINT "Fortgeschrieben auf ";a3% 

ELSE 

PRINT "Kein Satz angelegt." 

ENDIF 
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ELSE 

PRINT "... Fehlanzeige für Satz ";such% 
ENOIF 
CLOSE #1 

CHAIN H DIREKT_M.GFA" 

i 

PROCEDURE fehlerroutine 
fehler!=TRUE 
RESUME NEXT 
RETURN 


Struktogramm zum Leseprogramm DIREKT_JL: 


ARTDATEI eröffnen als Direktzugriff-Datei 

Zu suchende Artikelnummer such% eintippen 


Solange such%>1000, wiederhole 


Adreßrechnung durchführen: s%=such%-1000 


Artikelsatz mit Satznummer s% direkt lesen 


gefunden (Kein ERROR 


ja NSSS \ V 



Satzkomponenten 

Fehlerhinweis 


al%,a2$,a3% und a4 
zeigen 

ausgeben 


Den nächsten Suchbegriff such% eintippen 

ARTDATEI unverändert wieder schließen 
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3 Programmierkurs mit GFA-Basic 


Im Programm DIREKT_L wird durch die Programmzeile 

LET ads%=LOF(#1)/gl% 

festgestellt, wieviele Datensätze die Datei enthält. Die Funktion LOF() 
liefert die Länge der Datei auf dem angegebenen Datenkanal in Bytes. 
Teilen wir diesen Wert durch die Satzlänge (gl%) so erhalten wir die 
Anzahl der Datensätze (ads%). 


Codierung zu Programm DIREKT_L: 

REM ====== Programm DIREKTJ. 

1 Leseprogramm (L) 

• Einen oder mehrere Sätze aus der Artikeldatei 

• direkt lesen (Adressrechnung SatzNr = Suchbegriff - 1000). 


REM ====== Vereinbarungsteil 

1 ARTDATEI Direktzugriff-Datei 

1 a1%,a2$,a3%,a4 Datensatz mit 4 Datenfeldern im Programm 

1 p1$,p2$,p3$,p4$ Datensatz mit 4 Datenfeldern im Dateipuffer 

1 such% ArtikeInummer als Suchbegriff 

' s% Satznummer zur direkten Adressierung 

1 fehler! Fehler bei Dateizugriff 

1 gl% Datensatzlänge 

1 ads% Anzahl angelegter Datensätze 

• 

REM ====== Anweisungsteil 


OPEN "R",#1, "ARTDATEI",29 

FIELD #1,4 AS p1$,15 AS p2$,4 AS p3$,6 AS p4$ 

gl%=29 

LET ads%=LOF(#1)/gl% 

PRINT "Angelegte Datensätze : ";ads% 

INPUT "ArtikeInummer (Ende=negativ) ";such% 

ON ERROR GOSUB fehlerroutine 
WHILE such%>1000 
fehler!=FALSE 
LET s%=such%-1000 
GET #1,s% 

IF NOT fehler! THEN 
LET a1%=CVL(p1$) 

LET a2$=p2$ 

LET a3%=CVL(p3$) 

LET a4=CVF(p4$) 

PRINT "ArtikeInummer : ";a1% 

PRINT "Bezeichnung : ";a2$ 

PRINT "Bestandsmenge : ";a3% 

PRINT "Stückpreis : ";ROUND(a4,2) 
PRINT 
ELSE 

PRINT "... Fehlanzeige für Satz ";such% 
ENDIF 

INPUT "Artikelnummer (Ende=negativ) ";such% 










3.7 Direktzugriff-Datei (Artikeldatei) 


345 


WEND 
CLOSE #1 

CHAIN ,, DIREKT_M.GFA" 

I 

PROCEDURE fehlerroutine 
fehler!=TRUE 
RESUME NEXT 
RETURN 


Struktogramm zum Schreibprogramm DIREKTES: 


Artikeldatei ARTDATEI eröffnen 

Satz eintippen und den Variablen al%,a2$,a3%,a4 zuweisen 

Solange Artikelnummer al% ungleich 0 ist, wiederhole 


Datensatz nicht existent? 

ja nein 

Datensätze im Unterprogramm 

"anlegen" erzeugen 


Satz al%,a2$,a3%,a4 in Dateipuffer pl$,p2$,p3$,p4$ setzen 

Adreßrechnung: Satznummer s%=Artikelnummer al%-1000 

Inhalt des Dateipuffers nach ARTDATEI schreiben 

Datensatz nach al%,a2$,a3%,a4 eintippen 

ARTDATEI erweitert wieder schließen 
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3 Programmierkurs mit GFA-Basic 


Codierung zu Programm DIREKT_S: 

REM ====== DIREKT_S 

1 Schreibprogramm (S) 

1 Einen oder mehrere Sätze auf die Artikeldatei 
1 direkt schreiben (Adressrechnung SatzNr = ArtNr - 1000) 


REM ====== Vereinbarungsteil 

1 ARTDATEI Direktzugriff-Datei 

1 a1%, a2$, a3%, a4 Datensatz mit 4 Datenfeldern im Programm 

1 p1$,p2$,p3%,p4$ Datensatz mit 4 Datenfeldern im Dateipuffer 

1 s% Satznummer zur direkten Adressierung (Direktzugriff) 

1 gl% Datensatzlänge 

' ads% Anzahl vorhandener Datensätze 

i 

REM ====== Anweisungsteil 

OPEN "R",#1,"ARTDATEI",29 

FIELD #1,4 AS p1$,15 AS p2$,4 AS p3$,6 AS p4$ 

gl%=29 


LET ads%=LOF(#1)/gl% 

PRINT "Sätze schreiben (0=Ende)." 

INPUT "Nummer, Bez., Bestand, Preis : M ,a1%,a2$,a3%,a4 
WHILE a1%<>0 

IF a1%>(ads%+1000) THEN 
GOSUB anlegen(a1%,ads%) 

ENDIF 

LSET p1$=MKL$(a1%) 

LSET p2$=a2S 
LSET p3$=MKL$(a3%) 

LSET p4$=MKFS(a4) 

LET s%=a1%-1000 ! Adressrechnung 

PUT #1,s% 

INPUT "Nummer, Bez., Bestand, Preis :",a1%,a2$,a3%,a4 
WEND 
CLOSE #1 

CHAIN "DIREKTEM.GFA" 

i 

1 Unterprogramm : Anlegen neuer Datensätze 
PROCEDURE anlegen(a1%,VAR ads%) 

LOCAL i% 

FOR i%=ads%+1 TO a1%-1000 
LSET p1$=MtCL$(0) 

LSET p2$=" 11 
LSET p3$=MKL$(0) 

LSET p4$=MKF$(0) 

PUT #1,iX 
NEXT i% 

ads%=LOF(#1)/gl% 

RETURN 
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3.7.4 Direkte Adressierung eines Datensatzes 

Artikel 1019 ist als 19. Satz in der Artikeldatei gespeichert, Artikel 1001 
als 1. Satz, Artikel 1034 als 34. Satz. Die zeitliche Reihenfolge der Spei¬ 
cherung spielt keine Rolle. Solange z.B. für den "dazwischengehörenden" 
Artikel 1007 kein Satz gespeichert ist, bleibt der entsprechende Speicher¬ 
platz auf der Diskette leer - es entstehen Lücken. Die schlechte Ausnut¬ 
zung des Speicherplatzes ist sicher ein Nachteil der Direktzugriff-Datei. 

Der Zusammenhang 

"Satznummer s% ergibt sich aus Artikelnummer al% minus 1000" 

wird als Adreßrechnung bezeichnet. Diese Adreßrechnung stellt einen um¬ 
kehrbaren Zusammenhang zwischen der Artikelnummer als Ordnungsbe¬ 
griff einerseits und der relativen Satznummer als Speicherort andererseits 
her. "Umkehrbar", weil aus der Satznummer (z.B. 119. Satz) die zugehö¬ 
rige Artikelnummer abgeleitet werden kann (also 1119). Man bezeichnet 
diese umkehrbare Adreßrechnung als direkte Adressierung. 

Die Adreßrechnung muß vor dem Dateizugriff vorgenommen werden, d.h. 
vor jeder PUT- oder GET- An Weisung. Dazu folgende Beispiele: 

- In Programm DIREKT_S bewirken die Anweisungen 

LET s%=a1%-1000 
PUT #1,s% 

daß nach Berechnung der Satznummer s% durch al%-1000 (für Artikel¬ 
nummer al%=1019 wird s% z.B. 19) der Datensatz als 19. Satz direkt in 
die ARTDATEI geschrieben wird. 

- In Programm DIREKT_L bewirkt die Anweisungsfolge 

LET s%=such%-1000 
GET #1,s% 

dementsprechend, daß nach Ermittlung der Satzadresse s% aus dem Such¬ 
begriff such% der s°/o-te Datensatz direkt gelesen wird. 

- In Programm DIREKT_F wird nach der Adreßrechnung zunächst ein 
Satz gelesen, um diesen nach der Bestandsfortschreibung an dieselbe Stelle 
s% wieder zurückzuschreiben. 
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- In Programm DIREKT_A werden zum Schreiben von Leersätzen die 
Satznummern nicht über eine Adreßrechnung gewonnen, sondern über die 
Anweisung "FOR s%=l TO anz%" mit Satzzahl anz%. 


3.7.5 Indirekte Adressierung des Datensatzes 

Betrachten wir folgendes Planungsbeispiel einer Artikeldatei: 

- Kleinste Artikelnummer ist 1 

- größte Artikelnummer ist 300000 

- insgesamt sind 2000 Artikel im Sortiment 

- "SatzNr = ArtNr" als Adreßrechnung 

Diese Planung hat zur Folge, daß für die nur 2000 Artikel eine Datei mit 
300.000 Sätzen bereitgestellt werden muß. Das Adreßrechnungsverfahren 
der direkten Adressierung ist hier ungeeignet. Aus diesem Grund wird bei 
Streuung des Ordnungsbegriffs ein Verfahren der indirekten Adressierung 
gewählt wie z.B. das Divisions-Rest-Verfahren. Dabei entsteht das Pro¬ 
blem, daß für zwei Ordnungsbegriffe dieselbe Satznummer berechnet 
werden kann. Es kommt ggf. zu Doppelbelegungen bzw. Überläufern, die 
natürlich gesondert abgespeichert werden müssen. 

Im Zusammenhang mit der indirekten Adressierung spricht man auch vom 
Hashing (übersetzt: etwa "Mischmasch") bzw. vom Hash-Code. 

Direkte Adressierung: 

- Adreßrechnung "SatzNr = ArtNr - 1000" ergibt für ArtNr 1010, 1045, 
1002, ... die SatzNr 10, 45, 2, ... 

- Adreßrechnung "SatzNr =PersNr" ergibt für die PersNr 100187, 6745, 
23, ... die SatzNr 100187, 6745, 23, ... 

Aus dem Ordnungsbegriff läßt sich die Satznummer errechnen und 
umgekehrt aus der Satznummer der Ordnungsbegriff. 

- Lücken im Ordnungsbegriff führen zu Lücken in der Datei. 

Indirekte Adressierung: 

- Adreßrechnung mit dem "Divisions-Rest-Verfahren": Der Ordnungs¬ 
begriff (Beispiel Artikelnummer) wird in eine Satznummer 
umgerechnet, dazu wird er durch die Satzzahl der Datei (=1200) geteilt 
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(s. 1.3.5.1). Der Rest, der bei der Division übrigbleibt, gibt die 
Satznummer an: 

Satznummer = Ordnungsbegriff Modulo Satzanzahl + 1 

Damit wir keinen Satz mit der Nummer Null erhalten, wird immer 
noch eins addiert. Hier ein paar Beispiele: 

ArtNr 10800 ergibt SatzNr 1, 10800:1200=9 Rest 0, 0+1=1 
ArtNr 1453 ergibt SatzNr 254, 1453:1200=1 Rest 253, 253+1=254 

- Aus der Satznummer läßt sich der Ordnungsbegriff nicht eindeutig 
zurückrechnen (Problem der Überläufer). 

- Ziel: Weit verstreute Ordnungsbegriffe (z.B. ArtNr) zu eng beiein¬ 
anderliegenden Satzadressen (SatzNr) verdichten. 

Zwei Adreßrechnungs-Arten: direkte und indirekte Adressierung 


Die indirekte Adressierung ist auch stets dann angezeigt, wenn ein 
klassifizierender Ordnungsbegriff angewendet wird. Als Beispiel wird in 
der Abbildung eine Artikelnummer wiedergegeben. 


Position: 

Inhalt: 

Bedeutung: 

1-2 

AA-ZZ 

Zwei Anfangsbuchstaben des Artikelnamens 

3-4 

Zahl 

Lagerstelle 

5-7 

Zahl 

Nummer des Lieferanten 

8 

Ziffer 

Nummer für identische Positionen 1-7 


Die Artikelnummer HA093320 (Hammer, Lagerstelle 9, Lieferanten¬ 
nummer 332) und ME4211000 (Meißel, Lagerstelle 42, Lieferanten¬ 
nummer 100) können nur indirekt adressiert gelesen werden. 


Artikelnummer als klassifizierender Ordnungsbegriff 
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In Abschnitt 1.3.5.1 hatten wir eine Kundendatei dargestellt, auf die über 
eine Indexdatei als Inhaltsverzeichnis zugegriffen wurde. Diese Kunden¬ 
datei wollen wir nun auf dem Atari programmieren, um daran die index¬ 
sequentielle Dateiorganisation zu demonstrieren. 


3.8.1 Trennung von Datendatei und Indexdatei(en) 

Das Programmpaket mit den drei Teilprogrammen 

INDSEQ_S (S für Schreiben auf die Datei) 

INDSEQ_L(L für Lesen von der Datei in den Arbeitsspeicher) 

INDSEQ_T(T für SorTieren der Datei im Arbeitsspeicher) 

verwaltet eine index-sequentiell organisierte Kundendatei. Die folgenden 
Ausführungsbeispiele zeigen, daß bei index-sequentieller Datei¬ 
organisation zu der einen Datendatei (zur Unterscheidung auch Hauptdatei 
genannt) mehrere Indexdateien angelegt werden können: 


1. Eingeben und Speichern von Kunden 

Über das Schreibprogramm INDSEQ_S werden vier Kunden 104, 101, 
110 und 109 über Tastatur eingegeben und auf eine Kundendatei ge¬ 
schrieben. Jeder Kundensatz besteht aus Kundennummer, Name und 
Umsatz. Parallel hierzu wird die Kundennummer mit der zugehörigen 
Satznummer in eine Indexdatei geschrieben. 


Ausführung zu Programm INDSEQ_S: 


Kundendatei index-sequentiell beschreiben. 

Kundendatei: Name, Laufwerk? KUNDATEi.A 
Indexdatei : Name, Laufwerk? 1NDDATE1.A 
Datei löschen und neu beschreiben (j/n)? j 

Kundennuimer, Name, Umsatz (0=Ende)? 104.Maucher.295.6 
Kundennuimer, Name, Umsatz (0=Ende)? 101 .Frei,6600 
Kundennummer, Name, Umsatz (0=Ende)? 110.Amann.1018.75 
Kundennuimer, Name, Umsatz (0=Ende)? 109.Hildebrandt.4590.05 
Kundennuimer, Name, Umsatz (0=Ende)? 0,0,0 
Ende des Schreibens. 
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2. Ausgabe der Daten über die unsortierte Indexdatei 

Im Anschluß an INDSEQ_S bringen wir das Programm INDSEQ_L zur 

Ausführung: Der Reihe nach - sequentiell - wird der jeweils nächste 
Indexsatz gelesen und sodann über die Satznummer auf den Datensatz der 
Kundendatei zugegriffen. Genau denselben Ausdruck hätten wir erhalten, 
wenn die Kundendatei rein seriell ohne Zugriff über die Indexdatei 
gelesen worden wäre (seriell = lesen wie gespeichert). 


Ausführung zu Programm INDSEQ_L: 


Index-sequentiell lesen. 

Kundendatei: Name, Laufwerk? KUNDATEI.A 
Indexdatei: Name, Laufwerk? INDDATEI.A 


Nummer: Kundenname: Umsatz: 
104 Haucher 295.60 
101 Frei 6500.00 
110 Amann 1018.75 
109 Hildebrandt 4590.05 


3. Sortieren der Indexdatei 

Wir laden nun das Sortierprogramm INDSEQ__T, um den Index in den 
Hauptspeicher zu lesen, dort zu sortieren und dann in eine sortierte In¬ 
dexdatei namens INDS zu schreiben. 


Ausführung zu Programm INDSEQ__T: 


Index nach Kundennummern sortieren. 

Unsortierte Indexdatei: Name, Laufwerk? INDDATEI.A 
Sortierte Indexdatei: Name, Laufwerk? INDS.A 
4 Sätze in Indextabelle eingelesen. 

Indextabelle aufsteigend sortiert. 

Als sortierte Indexdatei gespeichert: 

Schlüsselfeld (KundNr.): Adressfeld (SatzNr): 

101 3 

104 2 

109 5 

110 4 


Ende. 
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4. Ausgabe der Daten über eine sortierte Indexdatei. 

Abschließend führen wir erneut das Programm INDSEQ_L aus: Jetzt 
werden die Kundensätze aufsteigend nach der Kundennummer sortiert 
aufgelistet, da als Indexdatei die Datei INDS angegeben wurde, die wir in 
Schritt 3 erzeugt haben. 


Ausführung zu Programm INDSEQ_L: 


Index-sequentiell lesen. 

Kundendatei: Name, Laufwerk? KUNDATEI.A 
Indexdatei: Name, Laufwerk? INDS.A 


Nummer: 

Kundenname: 

Umsatz: 

101 

Frei 

6500.00 

104 

Haucher 

295.60 

109 

HiIdebrandt 

4590.05 

110 

Amann 

1018.75 


Die Daten- und Indexdateien im Überblick: 

Zusätzliche Indexdateien namens 
INDDATEI INDS: 

k%/p4$ s%/P5$ k%/p6$ s%/p7$ 


104 I 

101 2 

110 3 

109 4 


Indexsatz mit zumeist nur zwei 
Datenfeldern (Schlüssel, Adresse). 

Zur Variablenbezeichnung k%/pl$: 

k%=Kundennummer im Programm; pl$=Kundennummer im Dateipuffer 


101 

2 

104 

1 

109 

4 

110 

3 


Datendatei namens 
KUNDATEI: 


k%/pi$ k$/p2$ u/p3$ 


104 Maucher 

295.60 

101 Frei 

6500.00 

110 Amann 

1018.75 

109 Hildebrandt 

4590.05 


Datensatz mit vielen 
Datenfeldern (hier 3). 


Eine (umfangreiche) Datendatei und zwei (kurze) Indexdateien 
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3.8.2 Zugriff über eine unsortierte Indexdatei 

Die unsortierte Indexdatei wird, wie schon erwähnt, über das Programm 
INDSEQ_S erstellt. Der Zugriff über diesen Index erfolgt dann durch das 
Programm INDSEQ_L. 

Zunächst zur Codierung des Schreibprogramms INDSEQ_S: 

Mit der Kundendatei wird auch eine Indexdatei eröffnet. Beide Dateien 
werden mit dem Parameter "R" zwar als Direktzugriff-Dateien eröffnet, 
später aber rein sequentiell beschrieben: 

inc s% Sequentiell den nächsten Satz s% auf 

put #l,s% Kunden- wie Indexdatei schreiben 

PUT #2,s% 

Später wird die Satzanzahl s°/o als erster Satz mittels PUT #2,1 
gespeichert. 

Nach dem Schreiben des nächsten Kundensatzes (k%,k$,u) auf die Kun¬ 
dendatei (PUT #l,s%) wird dessen Kundennummer k% und die Satznum¬ 
mer in der Datendatei s°/o als Indexsatz (k°/o,s°/o) in der Indexdatei 
abgelegt. Nach Beenden der Schreibschleife WHILE...WEND wird die 
Satzanzahl s% als erster Satz auf die Indexdatei geschrieben. Im 
Sortierprogramm INDSEQ_T brauchen wir später diesen Wert. 


Codierung des Programms INDSEQ_S: 


REM ====== Programm INDSEQ-S 

PRINT "Kundendatei index-sequentiell beschreiben." 

i 

REM ====== Vereinbarungsteil 

1 f$, fi$ Name der Kundendatei und der zugehörigen Indexdatei 

• 1$, li$ Namen der Laufwerke. 

1 k%,k$,u Datensatz der Kundendatei mit den drei Datenfeldern 

• Kundennummer (k%), Kundenname (k$) und Umsatz (u) 

• k%,s% Datensatz der Indexdatei mit den zwei Datenfeldern 

1 k% (Schlüsselfeld) und Satznummer s% (Adressfeld) 


Hinweis: Satzanzahl bzw. -zeiger s% ist als 1. Indexsatz gespeichert 
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REM ====== Anweisungsteil 

INPUT "Kundendatei: Name, Laufwerk";f$,1$ 

INPUT "Indexdatei : Name, Laufwerk";fiS,li$ 

INPUT "Datei löschen und neu beschreiben (j/n)";e$ 

IF LEFT$(e$,1)="j" THEN ! Bestehende Datei löschen 

IF EXIST(l$+":"+f$) THEN 
KILL l$+":"+f$ 

ENDIF 

IF EXISTCli$+":"+fi$) THEN 
KILL li$+":"+fi$ 

ENDIF 

LET s%=1 ! Satzzeiger auf Position 1 stellen 

ENDIF 


OPEN »R",#1,l$+»:»+f$,24 
FIELD #1,4 AS p1$,14 AS p2$,6 AS p3$ 
OPEN "R",#2,li$+":"+fi$,8 
FIELD #2,4 AS p4$,4 AS p5$ 

IF LEFT$(e$,1)="j" THEN 
PUT #1,1 
PUT #2,1 
ELSE 

GET #2,1 
LET k%=CVL(p4$) 

LET s%=CVL(p5$) 

ENDIF 


Wurde "j" gewählt, so wurde die Datei 
gelöscht. 


Bei "n" wird eine bestehende Datei 
ergänzt 


INPUT "Kundennummer, Name, Umsatz (0=Ende)";k%,k$,u 
WH ILE k%<>0 

INC s% ! nächsten Satz (sequentiell) schreiben 

LSET p1$=MKL$(k%) 

LSET p2$=k$ 

LSET p3$=MKF$(u) 

PUT #1,s% 

LSET p4$=p1$ 

LSET p5$=MKL$(s%) 

PUT #2,s% 

INPUT "Kundennummer, Name, Umsatz (0=Ende)";k%,k$,u 
WEND 

LSET p4$=MKL$(0) ! Satzanzahl als 1. Satz in Indexdatei ablegen 

1 p5$ braucht nicht mehr zugewiesen werden 

PUT #2,1 
CLOSE 

PRINT "Ende des Schreibens." 


END 


Nun zur Codierung des Leseprogramms INDSEQ_L: 

Nach dem Öffnen der Kundendatei sowie der Indexdatei wird der jeweils 
nächste Indexsatz gelesen (sequentieller Zugriff auf die Indexdatei), um 
sodann über die Satzunummer s% den zugehörigen Kundensatz einzulesen 
(Direktzugriff auf die Kundendatei). 
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Der index-sequentielle Dateizugriff erfolgt also stets in zwei Stufen: 

1. Zugriff sequentiell auf die Indexdatei 

2. Zugriff direkt auf die entsprechende Datendatei 


Codierung zu Programm INDSEQ_L: 


REM ====== Programm INDSEQ-L 

PRINT "Index-sequentiell lesen." 

REM ====== Vereinbarungsteil 

1 f$, fi$ Name der Kundendatei und der zugehörigen Indexdatei 

1 1$, li$ Namen der Laufwerke. 

1 k%,k$,u Datensatz der Kundendatei mit den drei Datenfeldern 

1 Kundennummer (k%), Kundenname (kS) und Umsatz (u) 

1 k%,s% Datensatz der Indexdatei mit den zwei Datenfeldern 

1 k% (Schlüsselfeld) und Satznummer s% (Adressfeld) 

1 a% Satzanzahl (als 1. Indexsatz gespeichert) 

■ 

REM ====== Anweisungsteil 


INPUT "Kundendatei: Name, Laufwerk";f$,1$ 

INPUT "Indexdatei: Name, Laufwerk";fi$,li$ 

OPEN "R",#1, l$+":"+f$,24 

FIELD #1,4 AS p1$,14 AS p2S,6 AS p3$ 

OPEN "R",#2,li$+":"+fi$,8 
FIELD #2,4 AS p4$,4 AS p5$ 

■ 

PRINT 

PRINT "Nummer: Kundenname: Umsatz:" 

GET #2,1 
a%=CVL(p5$) 

FOR i%=2 TO aX 
GET #2,i% 

LET s%=CVL(p5$) 

GET #1,S% 

LET k%=CVL(p1$) 

LET k$=p2$ 

LET u=CVF(p3$) 

PRINT USING »### \ \ #####.##",k%,k$,u 

NEXT i% 

CLOSE 

END 
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3.8.3 Zugriff über eine sortierte Indexdatei 

Das Programm INDSEQ_T erstellt eine sortierte Indexdatei, über die 
dann mit dem Programm INDSEQ_L die Kunden nach Kundenummern 
sortiert gelesen werden können. 


Codierung zu Programm INDSEQ_T 


REM ====== Programm INDSEQ-T 

PRINT "Index nach Kundennummern sortieren." 

i 

REM ====== Vereinbarungsteil 

' f1$ # f2$ Namen der unsortierten bzw. der sortierten Indexdatei 

' 11$,12$ Namen der Diskettenlaufwerke. 

1 p4$,p5$ Indexsatz im Dateipuffer von f1$ 

• p6$,p7$ Indexsatz im Dateipuffer von f2$ 

1 i%(s%,2) Zweidimensionales Array als Indextabelle mit 

1 s% Zeilen bzw. Indexsätzen sowie mit 

' 2 Spalten für Kundennummer und Satznummer 

1 s% Anzahl der Indexsätze (im 1. Satz gespeichert) 

1 sortiert! Logische Hilfsvariable zur Schleifensteuerung 

i 

REM ====== Anweisungsteil 


INPUT "Unsortierte Indexdatei: Name, Laufwerk";f1$,11$ 

OPEN ... 

FIELD #1,4 AS p4$,4 AS p5$ 

INPUT "Sortierte Indexdatei: Name, Laufwerk";f2$,12$ 

OPEN "R",#2,l2$+":"+f2$,8 
FIELD #2,4 AS p6$,4 AS p7$ 

I 

GET #1,1 ! Satzanzahl s% aus 1. Satz der Datei lesen 

LET s%=CVL(p5$) 

DIM i%(s%,2) ! Indextabelle I dynamisch dimensionieren 

FOR z%=1 TO s% ! Index aus Datei in Tabelle i% einiesen 

GET #1,z% 

LET i%(z%,1)=CVL(p4$) 

LET i%(z%,2)=CVL(p5$) 

NEXT z% 

PRINT sX-1;" Sätze in Indextabelle eingelesen." 

i 

REPEAT 

LET sortiert!=TRUE ! Indextabelle intern sortieren (Bubble Sort) 
FOR z%=2 TO (s%-1) 

IF i%(z%,1)>i%(z%+1,1) THEN 
SWAP i%(z%,1),i%(z%+1,1) 

SWAP i%(z%,2),i%(z%+1,2) 

LET sortiert!=FALSE 
ENDIF 
NEXT z% 

UNTIL sortiert! 

PRINT "Indextabelle I aufsteigend sortiert." 
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PRINT ! Sortierte Indextabelle in Indexdatei schreiben 

PRINT "Als sortierte Indexdatei gespeichert:" 

PRINT "Schlüsselfeld (KundNr.): Adressfeld (SatzNr):" 

FOR z%=2 TO s% 

LSET p6$=MKL$(i%(z%,1)) 

LSET p7$=MKL$(i%(z%,2)) 

PUT #2,z% 

PRINT USING " ### ###",i%(z%,1),i%(z%,2) 

NEXT z% 

CLOSE ! Alle Dateien schlie/3en 

PRINT "Ende." 

END 


Zur Codierung von Programm INDSEQ_T: 

Zuerst wird die gesamte externe Indexdatei in eine interne Indextabelle 
namens i%(,) eingelesen (FOR-Schleife). 

Dann sortieren wir die Tabelle intern nach dem Sortierverfahren "Bubble 
Sort" (vgl. Abschnitt 3.5.3) nach Kundennummern in aufsteigender Folge. 
Im Anschluß daran legen wir die Indextabelle i%(,) in einer Indexdatei 
namens INDS auf Diskette ab. Hier wird ein Vorteil der index¬ 
sequentiellen Datei deutlich: Es muß nur eine kleine Indexdatei sortiert 
werden, nicht die gesamte Datendatei. 

Wie das Ausführungsbeispiel in Schritt 4. zeigt, erhält man jetzt beim 
Lesen über diese Indexdatei INDS eine Kundenliste, die nach 
Kundennummern aufsteigend sortiert ist. 


3.8.4 Primärindexdatei und Sekundärindexdateien 

Wie zur Kundennummer können wir auch zum Kundennamen sowie zum 
Kundenumsatz zusätzliche sortierte Indexdateien erstellen, um über diese 
Indizes dann z.B. eine sortierte Druckliste zu bekommen. Man bezeichnet 
diese Indizes als Sekundärindexdateien. 

Für eine Kundendatei mit 15 Datenfeldern je Datensatz können wir eine 
Primärindexdatei (Ordnungsbegriff z.B. Kundennummer) und maximal 14 
Sekundärindexdateien erstellen. Es sollten natürlich nur soviele 
Sekundärindizes angelegt werden, wie man benötigt, denn neben der 
Datendatei selbst müssen bei Änderungen alle Sekundärindexdateien 
mitgepflegt werden. Der große Vorteil der index-sequentiellen Datei 
besteht darin, daß direkt auf einen Satz sowie sequentiell auf eine 
Satzfolge zugegriffen werden kann. 
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3.8.5 VoII-Index und Teil-Index 

Bei einem Voll-Index wird zu jedem Satz der Datendatei ein Eintrag in 
der zugehörigen Indexdatei vorgenommen. Zu unserer KUNDATEI wurde 
demnach ein Voll-Index angelegt. 

Eine andere Möglichkeit besteht darin, in der Indexdatei nur z.B. jeden 
zehnten Eintrag der Datendatei zu vermerken. Dies setzt aber voraus, daß 
die Sätze sortiert in der Datendatei stehen. 

Bei dem in der Abbildung wiedergegebenen Beispiel eines Voll-Index ist 
angenommen, daß in der Indexdatei die vier Adressen (1), (3), (4) und (7) 
auf Sätze einer Datendatei weisen, die unsortiert bzw. gestreut auf 
Diskette bzw. Platte gespeichert sind. Da die Sätze in der Reihenfolge in 
die Datendatei geschrieben werden, in der sie gerade anfallen (also seri¬ 
ell), spricht man auch von indiziert-serieller Dateiorganisation. Unsere 
KUNDATEI ist auf diese Art organisiert. 


Datendatei unsortiert: 

- Voll-Index erforderlich. 

- Oft als index-serielle Datei 
bezeichnet. 

- Beispiel Voll-Index: 


Datendatei sortiert: 

- Voll- oder Teil-Index möglich. 

- Index-sequentielle Datei. 

- Beispiel Teil-Index: 


(1) (3) (4) (7) 
3^,*4 


( 1 ) ( 11 ) ( 21 ) 

I \ 

1 2 ... 9 10 11 ... 


Voll-Index und Teil-Index an einem Beispiel 


Das rechte Beispiel zeigt einen Teil-Index, bei dem im Index nur zehn 
Prozent aller Adressen verzeichnet sind. Das Inhaltsverzeichnis ist somit 
unvollständig. Gleichwohl ist der index-sequentielle Zugriff schnell: Ist 
der gesuchte Eintrag nicht in der Indexdatei zu finden, wird sequentiell in 
der Datendatei weitergesucht, um den Satz nach höchstens neun Zugriffen 
zu finden. 

Der Dateizugriff bei Vorliegen eines Teil-Index läuft demnach wie folgt 
ab: 

1. Sequentieller oder direkter Zugriff auf die Indexdatei. 

2. Direktzugriff auf die Datendatei. 

3. Ggf. sequentiell in der Datendatei weitersuchen. 



Programmerkurs 
mit GFA-Basic 


3.1 Grundlegende Programnistrukturen an Beispielen 


3.2 Strings (Texte) 


3.3 Arrays (Felder, Tabellen) 


3.4 Eingabe und Ausgabe 


3,5 Suchen, Sortieren, Mischen und Gruppieren von Daten 


3.6 Sequentielle Datei (Telefondatci) 


3.7 Direktzugriff-Datei (Artikeldatei) 


3.8 Index-sequentielle Datei (Kundendatei) 


3.9 Gekettete Liste als Linked List (Namensdatei) 


3.10 Binärer Baum (Nuinmerndatei) 


3.11 Verkettete Dateien und Datenbank 


3.12 Unterbrechungsereignisse 


3.13 Grafik 


167 

219 

241 

260 

286 

317 

331 

350 

^// 360 ^% 

370 
385 
391 
397 


3.14 Mascliinennahe Programmierung und Tonerzeugung 


429 


















3.9 Gekettete Liste als Linked List (Namensdatei) 


361 


Auf Daten einer Datei muß schnell zugegriffen werden können. Geht man 
rein sequentiell bzw. seriell vor, so geht es zumeist sehr langsam. Verfährt 
man nach dem "Binären Suchen" (vgl. Abschnitt 3.5.2.2), setzt dies sor¬ 
tierte Daten voraus. Außerdem ist stets von neuem zu sortieren, wenn 
Daten hinzugefügt werden. 

Mit der geketteten Liste (Linked List) sowie dem binären Baum stehen 
zwei Datenstrukturen zur Verfügung, bei denen neue Daten einfach hin¬ 
ten angehängt werden können, ohne den Gesamtdatenbestand wiederholt 
bewegen zu müssen. 

Wenden wir uns zunächst der geketteten Liste bzw. Linked List (to link = 
verbinden, ketten) als dynamischer Datenstruktur (vgl. Abschnitt 1.3.2.3) 
zu. Das Programm namens LILIST_M demonstriert, wie eine Namendatei 
als gekettete Liste organisiert werden kann. Zu jedem Namen wird je ein 
Zeiger (Verweis) auf seinen Vorgänger (Vater) wie auch auf seinen 
Nachfolger (Sohn) gespeichert. 


3.9.1 Darstellung einer geketteten Liste 

Stellen wir uns die "Artikeldatei" eines etwas südlich gelegenen Obstbau¬ 
ern vor. Diese Datei soll hier der Einfachheit halber nur aus dem Obst¬ 
namen als Ordnungsbegriff bestehen. Sind die sechs Namen BIRNE, 
KIRSCHE, PFIRSICH, MIRABELLE, APFEL und PFLAUME in eine 
aufsteigende Sortierfolge zu bringen, dann kann dies dadurch geschehen, 
daß man die Sätze tatsächlich (physisch) durch ein bestimmtes Sortier¬ 
verfahren (vgl. Abschnitt 3.6.3) umspeichert. Wir wollen die physische 
Speicherungsfolge aber behalten und dafür eine logische Speicherungs¬ 
folge über ein Zeigerfeld aufbauen, mit der man dann die sortierte Rei¬ 
henfolge der Datensätze erhält. 

Jeder einzelne Datensatz der Namendatei besteht demzufolge aus einem 
Namenfeld und einem Zeigerfeld. Eine aus diesen beiden Komponenten 
bestehende Datenstruktur nennt man "lineare gekettete Liste ", da man sie 
sich als Linie auflisten kann. 


“1 

f ~-n ~L 

Birne 2 Kirsche 4 Pl 

firsich 6 Mirabelle 3 Apfe 

1 1 Pflaume 0 

_ ..=1 

e%=6- 

Ende 


l$()=Listenelemente (Namen) a%=5- 

z%()=Listenzeiger (nächster Name) Anfang 


Graph einer linearen geketteten Liste mit sechs Elementen 
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Zur internen Speicherung der Namendatei: Im Speicher legen wir die Na¬ 
men in einem Array 1$() ab und die Zeiger in einem Array z%(). In der 
Variablen a% speichern wir den Anfangsindex der Liste und in e% den 
Endindex. Die Übersicht zeigt, welche Inhalte diese zur Darstellung der 
geketteten linearen Liste in BASIC erforderlichen vier Variablen 1$(), 
z%(), a%, e% annehmen, wenn wir das Programm LILIST_M wie im 
Ausführungsbeispiel wiedergegeben laufen lassen. 


Tätigkeit 

ISO 

z%() 

a% 

e% 

Leere Liste mit Menüwahl 1: 

Blank 

0 

0 

0 

1. Namen vorne anfügen: 

BIRNE 

0 

1 

1 

2. Namen hinten einfügen: 

BIRNE 

2 




KIRSCHE 

0 

1 

2 

3. Namen hinten anhängen: 

BIRNE 

2 




KIRSCHE 

3 




PFIRSICH 

0 

1 

3 

4. Namen dazwischen einfügen: 

BIRNE 

2 




KIRSCHE 

4 




PFIRSICH 

0 




MIRABELLE 

3 

1 

4 

5. Namen vorne anfügen: 

BIRNE 

2 




KIRSCHE 

4 




PFIRSICH 

0 




MIRABELLE 

3 




APFEL 

1 

5 

5 

6. Namen hinten anhängen: 

BIRNE 

2 




KIRSCHE 

4 




PFIRSICH 

6 




MIRABELLE 

3 




APFEL 

1 




PFLAUME 

0 

5 

6 


l$()=Listenelement, z%()=Listenzeiger, a%=Anfang, e%=Ende 


Aufbau einer geketteten Liste an einem 6-Schritt-Beispiel 
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3.9.2 Erzeugen einer leeren Liste 

Die Codierung zu Programm LILIST_M zeigt uns einen menügesteuerten 
Ablauf, der bewußt einfach programmiert wurde. Das erste Unterpro¬ 
gramm "erzeugen" erzeugt eine leere Liste: Anfang a% und Ende e% der 
Liste werden auf Null gesetzt und je hundert Listenelemente 1$() und Li¬ 
stenzeiger z%() dimensioniert. 


Demonstration: Gekettete Liste (Linked List) 
als dynamische Datenstruktur. 

1 Leere Liste erzeugen 

2 Neue Elemente eingeben 

3 Liste logisch ausgeben 

4 Liste physisch ausgeben 

5 Datei mit Liste laden 

6 Liste in Datei speichern 
Ihre Wahl <0=Ende)? 1 

Liste leer dimensioniert. 

Weiter mit Taste 


3.9.3 Eingeben neuer Listenelemente 

Das Unterprogramm "eingeben" von Programm LILIST__M enthält zwei 
Teile: 

Zunächst wird die Liste verlängert (INC e%) und das zusätzlich eingege¬ 
bene Listenelement e$ hinten in der Liste angefügt (LET l$(e°/o)=e$). Dies 
ist ein rein sequentieller Schreibvorgang. 

Dann werden die Listenzeiger so umgeordnet, daß die logische Sortierung 
erhalten bleibt. Dabei unterscheiden wir, ob das neue Element vorne an 
die erste Position angefügt wird (LET a°/o=e%) oder aber an einer anderen 
Position. 


Ihre Wahl (0=Ende)? 2 
Neues Element (0=Ende)? Birne 
Neues Element (0=Ende)? Kirsche 
Neues Element (0=Ende)? Pfirsich 
Neues Element (0=Ende)? Mirabelle 
Neues Element (0=Ervde)? Apfel 
Neues Element (0=Ende)? Pflaume 
Neues Element (0=Ende)? 0 


Weiter mit Taste 
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3.9.4 Liste in Sortierfolge oder Speicherfolge ausgeben 

In Sortierfolge ausgeben heißt, daß die Listenelemente in 1$() in der logi¬ 
schen Ordnung gezeigt werden, wie sie über die Zeiger vorgegeben ist. Im 
Unterprogramm "log_ausgeben" beginnt die Laufvariable i% mit An¬ 
fangsindex a%, um nach jeder Ausgabe "PRINT l$(i%)" durch die Anwei¬ 
sung LET i%=z°/o(i%) der Lauf variablen i% den Wert des aktuellen Zei¬ 
gerfeldes zuzuweisen, z%(i%) zeigt ja immer auf den logischen 
Nachfolger. 

Die Sortierfolge ist eine rein logische Ordnung, da die Namen in der 
Speicherfolge als physischer Ordnung durcheinander und unsortiert in 1$() 
abgelegt sind. Die logische Ordnung wird jeweils angepaßt, während die 
physische Ordnung unverändert bleibt. Damit wird vermieden, Datensätze 
tatsächlich bewegen zu müssen. 


Ihre Wahl <0=Ende)? S 

Apfel 

Birne 

Kirsche 

Mirabelle 

Pfirsich 

Pf latme 

Weiter mit Taste 


Die Ausgabe der Namen in der Speicherfolge erfolgt einfach mit der 
Zählerschleife 

FOR i%=1 TO e% 

PRINT l$(i%);tab(15);z%(i%) 

NEXT i% 

vom ersten bis zum letzten bzw. e%. Listenelement. 


Ihre Wahl (0=Ende)? 4 


Birne 2 
Kirsche 4 
Pfirsich 6 
Mirabelle 3 
Apfel 1 
Pflaume 0 


Weiter mit Taste 
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3.9.5 Gekettete Liste als Datei extern ablegen 

Über Unterprogramm "speichern" wird die in den beiden Arrays 1$() und 
z%() intern dargestellte Liste in eine Datei mit Namen NAMDATEI ge¬ 
schrieben. Dabei wird der erste Datensatz wie üblich für beschreibende 
Daten reserviert: für den Listenanfang a% und für das Listenende e%. Die 
NAMDATEI selbst ist als sequentielle Datei organisiert. 


Ihre Uahl (0=Ende)? 6 
Dateiname? NAMDATEI 

Liste auf Diskette in der Datei NAHDATEI gespeichert. 
Weiter mit Taste 


Ihre Uahl (0=Ende)? 0 
Ende. 

Sehen wir uns nach Verlassen von GFA-Basic den Inhalt der Datei an, 
indem wir das Dateipiktogramm der NAMDATEI zweimal anklicken: 


5,6 

Birne,2 
Kirsche,4 
Pfirsich,6 
Hirabelle,3 
Apfel,1 
Pf laLine.O 


- 1. Satz mit 5 als Listenanfang und 6 als Anzahl der Nutzsätze. 

- 6 Nutzsätze mit jeweils zwei Datenfeldern "Bezeichnung" und "Zeiger 
auf Folgesatz". 

- Komma als Trennungszeichen. 

Aufgrund der Schreibanweisung von Programm LILIST_M 

PRINT #1,l$(iX);", M ;z%(i%) 

werden die Datenfelder jeweils durch getrennt, Die Datensätze hinge¬ 
gen werden durch CHR$(13) bzw. "Wagenrücklauf getrennt. Sollen aus¬ 
schließlich zur Trennung verwendet werden, können wir die Anwei¬ 
sung auch als 

PRINT #1, l$( i;z%( i%);••,"; 
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schreiben. Die Ausgabe der Datei am Bildschirm zeigt, daß eine sequen¬ 
tielle Datei Feld für Feld hintereinander beschrieben wird. Die Daten¬ 
satzlänge ist dabei variabel (z.B. "BIRNE" mit 5 und "MIRABELLE" mit 9 
Zeichen für das erste Feld). Eine konstante Datensatzlänge können wir 
über entsprechende Stringoperationen (vgl. Abschnitt 3.2) erzeugen. 

Zum Laden der Datei NAMDATEI: 

Das Unterprogramm "laden" liest die gesamte Namendatei wieder in den 
Hauptspeicher ein, wobei vor dem Lesevorgang zuerst durch einen Aufruf 
des Unterprogramms "erzeugen" eine leere Liste erzeugt wird. 

Wie diese beiden Unterprogramm zeigen, wird in unserem Demonstrati¬ 
onsprogramm LILIST_M zur geketteten Liste der dateiweise Datenver¬ 
kehr praktiziert. 


Codierung zu Programm LILIST_M: 


REH ====== LILIST_M 

PRINT "Demonstration: Gekettete Liste (Linked List)" 

PRINT " als dynamische Datenstruktur." 

PRINT 

i 

REM ====== Vereinbarungsteil 

' IS<100) Maximal 100 Elemente der linearen geketteten Liste 
1 z%(100) Maximal 100 Zeiger der linearen geketteten Liste 

• a%, e% Zeiger "Anfang der Liste" und "Ende der Liste" 

• h% Hilfszeiger 

' i% Laufvariable, Listenzeiger 

' f$ Dateiname zur externen Speicherung der Liste 

' l$(i%) Datensatz mit zwei Datenfeldern "Listenelement" 

• z%(i%) und "Listenzeiger" 

' w%, e$ Hilfsvariablen für die Eingabe 

i 

REM ====== Anweisungsteil 

DO 


PRINT "1 Leere Liste erzeugen" 

PRINT "2 Neue Elemente eingeben" 

PRINT "3 Liste logisch ausgeben" 

PRINT "4 Liste physisch ausgeben" 

PRINT "5 Datei mit Liste laden" 

PRINT "6 Liste in Datei speichern" 
INPUT »Ihre Wahl (0=Ende)";w% 

EXIT IF w%=0 
SELECT w% 

CASE 0 

PRINT "Programmende." 

CASE 1 

erzeugen(l$(),z%(),a%,e%) 

CASE 2 

eingeben(l$(),z%(),a%,e%) 
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CASE 3 

log_ausgeben(l$(),z%(),a%) 
CASE 4 

phys_ausgeben(l$(),z%(),e%) 
CASE 5" 

laden(l$(),z%(),a%,e%) 

CASE 6 

speichern(l$(),z%(),a%,e%) 

ENDSELECT 

PRINT 

PRINT "Weiter mit Taste"; 

VOID INP(2) 

CLS 

LOOP 

PRINT "Ende." 

END 


PROCEDURE erzeugen(VAR l$(),z%(),a%,e%) 
IF e%<>0 THEN 


ERASE l$() ! 

ERASE z%() 

ENDIF 

CLR e% f a% ! 

DIM IS(IOO) ! 

DIM z%(100) ! 


PRINT "Liste leer dimensioniert." 
RETURN 


!Leere Liste erzeugen. 

Arrays löschen zum Redimensionieren. 


Zeiger initialisieren. 

Liste mit den Listenelementen selbst. 
Zeiger auf ISO. 


PROCEDURE eingeben(VAR lSO,z%(),a%,e%) ! Neue Listenelemente eingeben. 

LOCAL e$ 

DO 

INPUT "Neues Element (0=Ende)";eS 
EXIT IF e$="0" 

INC e% 

LET l$(e%)=eS 

element_einordnen(l$() # z%() # a%,e%) ! eS einordnen 

LOOP 
RETURN 


PROCEDURE element_einordnen(VAR lSO,z%(),a%,e%) ! Element sortiert einordnen. 

LOCAL i%,h% 

LET i%=a% 

WHILE e$>l$(i%) AND i%<>0 
LET h%=i% 

LET i%=z%(i%) 

UEND 

IF i%<>a% THEN 
LET z%(e%)=i% 

LET z%(h%)=e% 

ELSE 

LET z%(e%)=a% 

LET a%=e% 

ENDIF 

RETURN 
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PROCEDURE log_ausgeben(VAR l$(),z%(),a%) ! Liste in Sortierfolge ausgeben. 

LOCAL iX 
LET iX=a% 

PRINT 

UHILE iX<>0 
PRINT l$(i%) 

LET iX=zX(iX) 

UEND 

RETURN 

I 

PROCEDURE phys_ausgeben(VAR l$0,z%0,e%) ! Liste in Speicherfolge ausgeben. 

LOCAL i% 

PRINT 

FOR i%=1 TO eX 
PRINT l$(iX);TAB(15);zX(iX) 

NEXT iX 
RETURN 

PROCEDURE laden(VAR l$(),zXO,a%,eX) ! Liste in Internspeicher laden. 

LOCAL iX,f$ 

erzeugen(l$0,zX(),aX,e%) ! Leere Liste erzeugen. 

INPUT "Von welcher Datei laden";f$ 

OPEN "I»,#1,f$ 

INPUT #1,aX,e% 

FOR iX=1 TO eX 

INPUT #1,l$(iX),zX(iX) 

NEXT iX 
CLOSE #1 

PRINT "Liste aus ";f$;" in den Hauptspeicher geladen." 

RETURN 

I 

PROCEDURE speichernfVAR l$0,z%0,a%,e%) ! Liste extern als Datei abspeichern. 

LOCAL iX,f$ 

INPUT "Dateiname";f$ 

OPEN "0",#1,f$ 

PRINT #1,a%;",";eX 
FOR i%=1 TO eX 
PRINT #1,l$(iX);",";zX(iX) 

NEXT iX 
CLOSE #1 

PRINT "Liste auf Diskette in der Datei ";f$;" gespeichert." 

RETURN 


3.9.6 Zusammenfassung der Listenoperationen 

In der folgenden Übersicht fassen wir die wichtigsten Listenoperationen 
zusammen. Die dabei angegebenen Variablen beziehen sich wieder auf das 
Beispielprogramm LILIST_M. 
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1. Ein Listenelement suchen (z.B. MIRABELLE): 

(1) iet iX=aX Mit Anfangsindex a% beginnen. 

(2) Mit i% die Listenelemente entlanggehen, bis l$(i%)=0 ist (nicht 
gefunden) oder l$(i%)=such$ ist (gefunden). 

2. Ein Listenelement ändern (z.B. MIRABELLE in MIRABELLEI): 

(1) Wie beim Suchen oben. 

(2) Inhaltsänderung vornehmen. 

3. Ein Listenelement ändern (z.B. MIRABELLE in PFLAUME): 
Entsprechend dem Einfügen eines neuen Elements. 

4. Zeiger i% auf Listenanfang positionieren: 

LET iX=aX 

5. Zeiger i% auf Listenende positionieren: 

LET iX=eX 

6. Zeiger i% auf das Nachfolge-Element positionieren: 

let ix=zX(ix> Zeigerwert wird zum Index. 

7. Zeiger i% auf das Vorgänger-Element positionieren: 

(1) let hx=ix Position merken. 

(2) let iX=eX i% auf Listenanfang a% setzen. 

(3) wh Ile zX(iX)<>hX Suchen bis Vorgänger gefunden. 

(4) let tx*zX(iX) Logisch nächstes Listenelement. 

(5) weno Ende der Schleife 

8. Ein Listenelement löschen: 

(1) let ix=ioeschx Position des zu löschenden Namens. 

(2) Mit Schritt 7 auf den Vorgänger positionieren. 

(3) let zX< iX)=zX( toeschX) z%(i%) zeigt auf Nachfolger des zu 

löschenden Elements. Damit wird 
l$(h%) "frei". 

Grundlegende Operationen auf einer linearen geketteten Liste 


Besonders das Zurücksetzen des Zeigers auf das Vorgänger-Element ist 
umständlich, weil dabei nicht der physische, sondern der logische Vor¬ 
gänger zu suchen ist. 
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Wie die im vorhergehenden Abschnitt dargestellte zeigerverkettete Liste 
(Linked List) gehört auch der Binärbaum zu den dynamischen Daten¬ 
strukturen (vgl. Abschnitt 1.3.2.3).Der Binärbaum unterscheidet sich von 
der verketteten Liste nur dadurch, daß jedes Baumelement (Knoten = 
Node) stets zwei Zeiger hat: einen auf den linken und einen auf den 
rechten Nachfolger. Es gibt viele Arten von Bäumen. Wir gehen nur auf 
binäre Suchbäume in ihrer einfachsten Ausprägung ein. 


3.10.1 Grafische Darstellung eines Binärbaumes 

Wie das Beispiel eines Acht-Knoten-Baums zeigt, zeichnet man den 
Binärbaum zumeist auf dem Kopf stehend, also mit dem Baustamm bzw. 
der Wurzel (Root) nach oben. Der Wurzelknoten ME421000 hat zwei Zei¬ 
ger 3 und 2, die auf den linken (Knoten 3) und den rechten Nachfolger 
(Knoten 2) verweisen. Oder anders: Die Zeiger weisen auf weitere Bäume, 
und zwar auf einen linken und einen rechten Teilbaum. Somit kann auch 
jeder Knoten als Wurzel eines Teilbaumes betrachtet werden. Ein Zeiger¬ 
wert 0 bedeutet "Kein Nachfolger". Dabei sind Nachfolger "Söhne" und 
Vorgänger "Väter". Die Abbildung zeigt, daß man sich einen binären 
Baum grafisch als Stammbaum vorstellen kann. 

Baum-Darstellung in BASIC als Arrays: 

i% = Index als Knotennummer b$(i%) = Baum-Elemente selbst 
l%(i%)= Linker Nachfolger/Sohn r%(i%) = Rechter Nachfolger/Sohn 



Acht Artikelnummern als Binärbaum mit acht Knoten strukturiert 
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Die Elemente des Suchbaumes sind nicht willkürlich angeordnet, sondern 
in jedem linken Teilbaum befinden sich alle Knoten, deren Werte kleiner 
sind als der Wert der zum Teilbaum gehörigen Wurzel, und im rechten 
Teilbaum alle Knoten mit größeren Werten. 


3.10.2 Darstellung eines Binärbaums in BASIC 

Wie die meisten BASIC-Versionen hat auch das GFA-Basic keine beson¬ 
deren Sprachelemente für Bäume. 

Aus diesem Grunde müssen wir die Datenstruktur Binärbaum abstrakt 
z.B. mit der Datenstruktur Array darstellen. Für jeden Baumknoten 
brauchen wir mindestens drei Einträge: 

Element, linker und rechter Nachfolger. 

In BASIC verwenden wir zur Binärbaum-Darstellung die Arrays b$(i%) 
für Werte der Knoten und l°/o(i%) und r%(i%) für die Verweise auf den 
linken und rechten Nachfolger. Extern speichern wir den Binärbaum als 
sequentielle Datei in Sätzen mit den drei Datenfeldern Element, linker 
Sohn und rechter Sohn. 


Binärbaum 

im Internspeicher: 



i% 

b$(i%) 

l%(i%) 

r%(i%) 

0 


8=n% 

1 

1 

ME421000 

3 

2 

2 

NA421030 

0 

4 

3 

HA093320 

5 

6 

4 

SI120310 

8 

0 

5 

BO221140 

0 

7 

6 

KE014120 

0 

0 

7 

B0221141 

0 

0 

8 

PL081040 

0 

0 


Binärbaum im Externspeicher: 

Datei NUMDATEI als sequentielle Datei. Satz 0 enthält in 1%(0) die An¬ 
zahl der Knoten des Baums und in r%(0) den Zeiger auf die Wurzel. 

Binärbaum mittels Array (intern) und als Datei (extern) 
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Das Programm BIBAUM_M demonstriert einen binären Baum in BASIC 
für den Atari. 

Dieser binäre Baum könnte folgenden Zweck erfüllen: Ein Unternehmen 
führt klassifizierende Artikelnummern (vgl. Abschnitt 3.7.5); dabei steht 
BO221140 für: 


B0221140 
l_ 


als Unterscheidungsmerkmal 
114 als Artikelbezeichnung 
22 als Lagerort 

BOhrer als Artikelbezeichnung 


Die 8. Stelle dient zur Unterscheidung sonst identischer Artikelnummern. 
Diese Artikelnummern als Ordnungsbegriff einer Indexdatei sollen nun als 
Binärbaum strukturiert werden, um schnell zugreifen zu können und bei 
Änderung nicht alle Nummern bewegen zu müssen. 


3.10.3 Erzeugen eines leeren Binärbaums 

Im Unterprogramm "leer" unseres Programms BIBAUM_M erzeugen wir 
einen leeren Binärbaum. Es setzt die Felder 1%(0) (Anzahl der Knoten) 
und r%(0) (Zeiger auf Wurzel) auf 0. 


Ausführung zu Programm BIBAUM_M: 


Demonstration: Binärer Baum als dynamische Datenstruktur. 
0 Ende 

1 Leeren Binärbaum erzeugen 

2 Neue Elemente eingeben 

3 Baum sortiert ausgeben 

4 Baum unsortiert ausgeben 

5 Datei mit Baum laden 

6 Baum in Datei speichern 

Wahl 0-6? 1 

Binärbaum leer eingerichtet. 

Weiter mit Taste 


3.10.4 Eingeben von Elementen in den Binärbaum 

Mit Unterprogramm "neu'’ bzw. Menüwahl 2 geben wir acht Artikelnum¬ 
mern ein. Das Unterprogramm M unsortiert_ausgeben" bzw. Menüwahl 4 
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zeigt uns, wie die Baumelemente in den Arrays gespeichert werden: Sie 
werden seriell gemäß der Reihenfolge der Eingabe abgelegt. Die logische 
Verknüpfung geschieht nur über die Zeiger für den linken und den 
rechten Nachfolger. 

Das Einfügen in den Baum läuft folgendermaßen ab: 

1. Das neue Element wird auf dem ersten freien Speicherplatz im Ar- 
ray abgelegt. 

2. Das Unterprogramm "einfügen" stellt die logischen Verknüpfungen 
her. Es wird unter anderem die Parameter element% und z% 
übergeben. In element% wird dem Unterprogramm mitgeteilt, wo 
der neue Knoten im Array gespeichert ist. Die Variable z% dient 
hier als Zeigervariable (siehe 3.14.2), d.h. in ihr steht die Adresse, 
an der der eigentliche Wert zu finden ist. Über den Befehl {) wird 
dieser Wert im Unterprogramm dann direkt im Speicher geändert. 
Diese Methode mußte gewählt werden, da es in GFA-Basic nicht 
möglich ist, ein einzelnes Array-Element als Variablenparameter zu 
übergeben. 

einfuegen (...,V:r%(zeiger%),...) 

Um die Adresse der Variablen und nicht ihren Wert zu übergeben, 
wird beim Aufruf ein V: vorangestellt. Dies ist eine Funktion, die 
gerade die Adresse ergibt, an der die nachfolgende Variable (hier 
r°/o(zeiger%) im Speicher abgelegt ist. Diese Adresse steht dann im 
Unterprogramm in der Variablen z%. 

PROCEDURE einfuegen (....z%,...) 

<z%}=element% 

Die geschweiften Klammern bewirken nun, daß der Wert der 
Variablen element% nicht z% zugewiesen, sondern an die Adresse in 
den Speicher geschrieben wird, die in z°/o steht. 


Da man in einem Binärbaum jeden Teilbaum als eigenständigen Baum 
betrachten kann, zerlegen wir das Problem des Einfügens geschickt in 
kleinere Teilprobleme. 

Bei der Suche nach der Stelle, an der das neue Element in den Binärbaum 
eingefügt werden soll, treten folgende Teilprobleme auf. 
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1. Der Baum, in den eingefügt werden soll, ist leer, d.h. im Programm: 
zeiger%=0 (Die Variable zeiger% enthält in "einfügen" den Inhalt 
der Adresse z%). In diesem Fall kann das neue Element an dieser 
Stelle angefügt werden: {z%}=element%. Da z% ein Zeiger auf die 
Speicherstelle einer anderen Variablen ist, wird mit dieser 
Zuweisung automatisch das richtige Element im Array 1%() oder 
r%() geändert. 

2. Ist der Baum nicht leer, wird festgestellt, ob das Element unter 
dieser Wurzel in den linken oder rechten Ast gehört. Ist dies 
geschehen, hat man das gleiche Problem des Einfügens vor sich wie 
zu Anfang, nur für einen Teilbaum. Im Programm wird an dieser 
Stelle wieder das Unterprogramm "einfuegen" mit neuen Parametern 
aufgerufen. Das Verfahren geht solange weiter, bis einmal das Ende 
des Baumes erreicht ist. Dann tritt das erste Teilproblem (Baum 
leer) auf, die Einfügestelle ist gefunden. 

Es kommt hier also vor, das sich ein Unterprogramm selbst aufruft 
(Rekursion (lateinisch : recurrere für zurücklaufen). Wichtig ist dabei, daß 
bei jedem Aufruf lokale Variablen verwendet, die nach Beendigung des 
Unterprogrammes dann nicht mehr zur Verfügung stehen. So laufen die 
verschiedenen "Generationen" des Unterprogramms völlig unabhängig 
voneinander (vgl. Quicksort-Algorithmus in Abschnitt 3.5.3). 

Intern werden die Variablen und Übergabeparameter bei einem Aufruf 
des Unterprogramms auf einem Stack abgelegt (s. Abschnitt 3.3.2.4). 
Endet das Unterprogramm, so werden sie wieder vom Stack 
heruntergenommen. Wir werden diesen Ablauf an einem Beispiel im 
nächsten Abschnitt genauer betrachten. 

Ausführungsbeispiel zu den Menüpunkten 2 und 4: 


Wahl 0-6? 2 

1. Element (0=Ende)? ME421000 

2. Element <0=Ende)? NA42IQ30 

3. Element (0=Ende)? HAQ93320 

4. Element (0=Ende)? SI12Q31Q 

5. Element (0=Ende)? BO221140 

6. Element (0=Ende)? KE0H120 

7. Element <0=Ende)? BQ221141 

8. Element <0=Ende)7 PL081040 

9. Element (0=Ende)? 0 


Weiter mit Taste 
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Wahl 0-6? 4 
Element 

1 ME421000 

2 NA421030 

3 HA093320 

4 SI120310 

5 B0221140 

6 KE014120 

7 B0221141 

8 PL081040 


Sohn links 

3 HA093320 
0 ~ 

5 B0221140 
8 PL081040 
0 ~ 

0 “ 

0 “ 

0 • 


Sohn rechts 

2 NA421030 
4 SI120310 

6 KE014120 
0 " 

7 B0221141 
0 ‘ 

0 • 

0 ~ 


Ende der unsortierten Ausgabe. 
Weiter mit Taste 


3.10.5 Binärbaum sortiert ausgeben 

Bei der sortierten Ausgabe der Elemente des Binärbaums wird auch wie¬ 
der ein rekursiver Algorithmus verwendet. Das Problem teilt sich in die 
Teilprobleme 

- Ausgabe des linken Teilbaumes (alle kleineren Elemente). 

- Ausgabe des Wertes der Wurzel. 

- Ausgabe des rechten Teilbaumes (alle größeren Elemente). 

auf. Man sieht, daß auch hier wieder ein rekursiver Aufruf des Unter¬ 
programms erfolgt, um den rechten bzw. linken Teilbaum auszugeben. 
Dazu ruft sich das Unterprogramm zweimal selbst auf, einmal mit dem 
Zeiger auf den linken Teilbaum 1%() und einmal mit dem Zeiger auf den 
rechten Teilbaum r%(). Das geht solange, bis das Unterprogramm mit 
einem Zeiger auf gerufen wird, der Null ist. Dann erfolgt kein weiterer 
Aufruf. Im folgenden Ausführungsbeispiel wird neben den Elementen 
auch noch der Suchpfad mit ausgegeben. Zuerst wird im Baum entlang 
der Knoten 1, 3 und 5 abgestiegen, dann der Wert des Knotens 5 
ausgegeben (BO221140), da der Zeiger auf den linken Nachfolger Null ist. 
Dann wird in den Knoten 7 abgestiegen. So kann anhand des Schaubildes 
(am Anfang des Abschnitts) der Weg, den das Programm im Suchbaum 
nimmt, verfolgt werden. 
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Wahl 0-6? 3 

1 3 5 

Element : B0221140 
7 

Element : B0221141 

Element : HA093320 
6 

Element : KE014120 

Element : ME421000 

2 

Element : NA421030 
4 8 

Element : PL081040 

Element : SI120310 

Ende der sortierten Ausgabe. 

Weiter mit Taste 

Wir wollen nun einmal näher betrachten was eigentlich geschieht, wenn 
ein rekursiver Aufruf erfolgt. Dazu muß man zunächst wissen, daß alle 
Übergabevariablen und alle lokalen Variablen beim Aufruf eines 
Unterprogramms vom Interpreter auf einem Stack (Kellerspeicher) 
abgelegt werden. Bei unserer Prozedur ist nur der Parameter zeiger% 
interessant. Die Arrays b$(), r%(), 1%() werden nur übergeben, um sie 
nicht global benutzen zu müssen, sie werden in der folgenden Erklärung 
vernachlässigt. 

Beim ersten Aufruf des Unterprogrammes "ausgeben" wird also der 
Übergabewert r%(0) auf dem Stack abgelegt: 

ausgeben (r%(0)=l) | 1 I =zeiger% 


Die Variable zeiger%, die in dem Unterprogramm genutzt wird, liegt 
immer oben auf dem Stack. Da zeiger% ungleich Null ist, folgt als nächste 
Aktion die Ausgabe der Variablen zeiger%. Dann wird der linke Teilbaum 
ausgegeben, d.h. das Unterprogramm ruft sich selbst wieder auf: 


ausgeben (1%(1)=3) 



=zeiger% 


Der Übergabewert wird wieder auf dem Stack abgelegt, das Unter¬ 
programm arbeitet mit einer neuen Variablen und die 1 wird nicht 
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überschrieben. Nun folgen zwei weiter Aufrufe des Unterprogramms, bis 
wir ganz in den linken unteren Ast abgestiegen sind: 


ausgeben (1%(3)=5) 
ausgeben (1%(5)=0) 


o 

5 

3 

1 


=zeiger% 


Der Stack enthält noch alle früheren Werte von zeiger°/o, somit den 
gesamten Pfad, den wir im Baum abgestiegen sind. Da zeiger% nun aber 
gleich Null ist, führt das Unterprogramm keine Aktion mehr durch. Mit 
Beendigung der Routine (RETURN) werden alle Variablen, die beim 
Aufruf auf den Stack gebracht worden sind, wieder gelöscht: 


RETURN 


5 

3 

1 


=zeiger% 


Durch den RETURN-Befehl sind wir auch im Programm wieder an die 
Stelle gesprungen, an der der Unterprogrammaufruf erfolgt ist. Wie man 
sieht, hat auch zeiger% wieder den alten Wert. Wir befinden uns im 
Knoten mit der Nummer 5 und haben den linken Teilbaum bereits 
ausgegeben. Nun wird der Wert des Knoten ausgegeben (BO221140) und 
das Unterprogramm erneut zur Ausgabe des rechten Teilbaums 
aufgerufen: 


ausgeben (r%(5)=7) 


7 

5 

3 

1 


=zeiger% 


Die nächsten Schritte folgen nun kurz hintereinander, man kann den 
Ablauf mit dem Schaubild am Anfang des Kapitels verfolgen: 


ausgeben (1%(7)=0) 
RETURN (zeiger%=0) 


o 

7 

5 

3 

1 


Linken Teilbaum 
ausgeben. 


7 

5 

3 

1 


PRINT b$(7) 


Ausgabe BQ221141 
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ausgeben (r%(7)=0) 
RETURN (zeiger%=0) 


o 

7 

5 

3 

1 


Rechten Teilbaum 
ausgeben. 


An dieser Stelle werden nun die Unterprogramme (zeiger%=7 und 5) 
beendet. Das bedeutet wir gehen den Baum zwei Stufen hinauf und 
befinden uns im Knoten 3. 


PRINT b$(3) 


3 

1 


Ausgabe HA093320 


Wir wollen das Beispiel hier beenden, da es sonst zu umfangreich würde. 
Der Rest des Baumes wird ein gleicher Weise abgearbeitet und 
ausgegeben. Man sieht deutlich, wie durch das Übergben der Variablen 
auf dem Stack ein Zurücklaufen im Baum möglich ist. Das geschieht 
automatisch, wir brauchen uns als Programmierer nicht darum zu 
kümmern. 

An einem weiteren Ausführungsbeispiel zu Programm BIBAUM__M 
wollen wir nun veranschaulichen, daß die später eingetippte 
Artikelnummer NA391030 physisch als 9. Element hinten (auf den Baum 
bezogen: unten) angefügt, logisch jedoch über die Verkettung an die 
Stelle gesetzt wird, die ihrer ASCII-Codezahl entspricht. 


Wahl 0-6? 2 

9. Element (0=Ende)? NA931030 

10. Element (0=Ende)? 0 


Weiter mit Taste 
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Wahl 0-6? 4 



Element 

Sohn links 

Sohn rechts 

1 

ME421000 

3 HA093320 

2 

NA421030 

2 

NA421030 

o - 

4 

SI120310 

3 

HA093320 

5 B0221140 

6 

KE014120 

4 

SI120310 

8 PL081040 

0 

- 

5 

BO221140 

0 " 

7 

B0221141 

6 

KE0U120 

0 “ 

0 

*• 

7 

B0221141 

0 ~ 

0 

m 

8 

PL081040 

9 NA931030 

0 

m 

9 

NA931030 

o • 

0 

** 


Ende der unsortierten Ausgabe. 


Weiter mit Taste 


Wahl 0-6? 3 

1 3 5 

Element : BO221140 
7 

Element : B0221141 

Element : HA093320 
6 

Element : KE014120 

Element : ME421000 

2 

Element : NA421030 
4 8 9 

Element : NA931030 

Element : PL081040 

Element : SI120310 

Ende der sortierten Ausgabe. 

Weiter mit Taste 


3.10.6 Binärbaum als Datei extern ablegen 

Mit dem Programm BIBAUM_M können wir über die Unterprogramme 
"lesen" und "speichern" den Binärbaum als sequentielle Datei laden und 
speichern. Zu beachten ist, daß wir in dem ersten Datensatz als beson¬ 
derem Satz unter 1%(0) die Knotenanzahl n% speichern. 
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Wahl 0-6? § 

Dateiname zum Speichern? NUMDATEI 
Binärbaum in NUMDATEI abgespeichert. 

Weiter mit Taste 

Wir können die Datei am Bildschirm anzeigen, indem wird das zugehörige 
Piktogramm zweimal schnell anklicken. 



Man erkennt, daß der erste Satz die Anzahl der nachfolgenden 
Knotensätzte und einen Zeiger auf das Wurzelelement enthält. Die acht 
nachfolgenden Nutzdatensätze enthalten jeweils drei Datenfelder für die 
Bezeichnung und den linken und rechten Nachfolger. 


Codierung zu Programm BIBAUM-M: 

REM ====== Programm BIBAUM_M 

PRINT "Demonstration: Binärer Baum als dynamische Datenstruktur." 

i 

REM ====== Vereinbarungsteil 

DIM b$(100) ! Maximal 100 Baumelemente bzu. Knoten 

DIM l%(100),r%(100) ! Linke und rechte Söhne als Nachfolger 

' n% Anzahl der Baumelemente, in l%(0) abgelegt 

1 b$(i%),r%(i%),l%(i%) 3-Felder-Datensatz für i%. Baumelement in der Datei 
• f$ Name der sequentiellen Datei zur Speicherung des Baumes 

1 i%,z% Hilfsvariablen 

i 

REM ====== Anweisungsteil 

DO 

PRINT "0 Ende» 

PRINT "1 Leeren Binärbaum erzeugen" 

PRINT "2 Neue Elemente eingeben" 

PRINT "3 Baum sortiert ausgeben" 

PRINT "4 Baum unsortiert ausgeben" 

PRINT "5 Datei mit Baum laden" 

PRINT "6 Baum in Datei speichern" 

PRINT 

INPUT »Wahl 0-6";z% 
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PRINT 

EXIT IF z%=0 
SELECT z% 

CASE 1 

leer(l%(),r%() f n%) 

CASE 2 

neu(b$(),l%(),r%(),n%) 

CASE 3 

ausgeben(r%(0),b$(),l%(),rX()) 

CASE 4 

unsortiert_ausgeben(b$() # l%() # r%() # n%) 
CASE 5 

laden(b$(),l%() # r%() # n%) 

CASE 6 

speichern(b$() # l%() # r%() # n%) 

ENDSELECT 

PRINT 

PRINT "Weiter mit Taste"; 

VOID INP(2) 

CLS 

LOOP 

END 

PROCEDURE leer(VAR l%() # r%() # n%) 

LET n%=0 

l %( 0)=0 

r%(0)=0 

PRINT "Binärbaum leer eingerichtet." 
RETURN 
■ 

PROCEDURE neu<VAR b$<) # l%<) # r%<) # n%) 

LOCAL eS 

PRINT n%+1;". Element (0=Ende)"; 

INPUT eS 
WHILE e$<>"0" 

INC n% 

LET b$(n%)=e$ 

LET r%(n%)=0 
LET l%(n%)=0 

einfuegen(n% # V:r%(0) # b$() # l%(),r%()) 
PRINT n%+1;". Element (0=Ende)"; 

INPUT e$ 

UEND 

LET l%(0)=n% 

RETURN 


! Gesamten Baum sortiert ausgeben. 


! Leeren Binärbaum initialisieren 
! Anzahl der Knoten 0 


! Neue Elemente in Binärbaum eingeben. 


! Element an die erste freie Stelle 
! im Array speichern 
! Vorerst hat das neue Element keinen 
! Nachfolger 


! Anzahl der Baumelemente merken. 
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PROCEDURE einfuegen(element%,z%,VAR b$(), l%(),r%()) ! Rekursives Einfügen 
LOCAL zeiger% ! eines Elementes 

zeiger%={z%> 

IF zeiger%=0 THEN ! Ist kein Nachfolger vorhanden, 

Cz%>=element% ! dann neues Element einfügen. 

ELSE 

IF b$(element%)>b$(zeiger%) THEN ! Im rechten Teilbaum einfügen 

einfuegen(element%,V:r%(zeiger%),b$(),l%(),r%()) 

ELSE ! Im linken Teilbäum einfügen 

einfuegen(element%,V:l%(zeiger%),b$(),l%(),r%()) 

ENDIF 

ENDIF 

RETURN 

PROCEDURE unsortiert_ausgeben(VAR b$(),l%(),r%(),n%) 

LOCAL i% 

PRINT TAB(4);"Element","Sohn links","Sohn rechts" 

PRINT 

FOR i%=1 TO n% 

PRINT i%;TAB(4);b$(i%),l%(i%) 1 bS(l%(i%)),r%(i%)'b$(r%(i%)) 

NEXT i% 

PRINT 

PRINT "Ende der unsortierten Ausgabe." 

RETURN 

PROCEDURE ausgeben(zeiger%,VAR b$(),l%<),r%()) ! Rekursives ausgeben des Baumes. 

IF zeiger%<>0 THEN 
PRINT zeiger%;" 

ausgeben(l%(zeiger%),b$(),l%(),r%()) ! Iinken Teilbäum ausgeben. 

PRINT 

PRINT "Element : ";b$(zeiger%) 

ausgeben(r%(zeiger%),b$(),l%(),r%()) ! rechten Teilbäum ausgeben. 

ENDIF 

RETURN 

PROCEDURE laden(VAR b$(),l%(),r%(),n%) ! Binärbaum aus Datei in Ram lesen 

LOCAL f$,i% 
leer 

INPUT "Dateiname";f$ 

OPEN "I",#1,f$ 

INPUT #1,b$(0),l%(0),r%(0) 

LET n%=l%(0) 

FOR i%=1 TO n% 

INPUT #1,b$(i%),l%(i%),r%(i%) 

NEXT i% 

CLOSE #1 

PRINT "Binärbaum eingelesen." 

RETURN 
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PROCEDURE speichern(VAR b$(),lXO,rXO,nX) ! Binärbaum extern abspeichern. 
LOCAL f$,iX 

INPUT "Dateiname zum Spei ehern";f$ 

OPEN »0",#1,f$ 

FOR i%=0 TO nX 

PR I NT #1,b$( i X) ;; l X< i X) ;","; rX(iX) 

NEXT iX 
CLOSE #1 

PRINT "Binärbaum in abgespeichert." 

RETURN 


Binärbäume haben zahlreiche Anwendungen, insbesondere eignen sie sich 
zum Suchen (deshalb die Bezeichnung Suchbäume) sowie zum Sortieren. 
Das hier wiedergegebene Beispiel gewährt allerdings nur einen sehr 
flüchtigen Blick auf das sehr breite Feld der Einsatzmöglichkeiten dieser 
dynamischen Datenstruktur. 

Bei größeren DV-Systemen ist der Dateizugriff über einen als Binärbaum 
organisierten Index sehr häufig als Bestandteil des Betriebssystems vorge¬ 
sehen. 



Programmierkurs 
mit GFA-Basic 


3.1 Grundlegende Programmstrukturen an Beispielen 


3.2 Strings (Texte) 

3.3 Arrays (Felder, Tabellen) 


3.4 Eingabe und Ausgabe 



3.5 Suchen, Sortieren, Mischen und Gruppieren von Daten 


3.6 Sequentielle Datei (Telefondatei) 

3.7 Direktzugriff-Datei (Artikeldatci) 


3.8 Index-sequentielle Datei (Kundendatei) 


3.9 Gekettete Liste als Linkcd List (Namensdatei) 


3.10 Binärer Baum (Nummemdatei) 


3.11 Verkettete Dateien und Datenbank 


3.12 Unterbrechungsereignisse 



3.13 Grafik 


3.14 Mascliincnnahe Programmierung und Toneizeugung 
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Der Begriff der Datenbank ist äußerst vielschichtig (vgl. Abschnitt 1.3.5), 
hat aber stets etwas mit Dateien zu tun, die zu einem gemeinsamen Da¬ 
tenbestand verkettet sind. 

Das Prinzip der verketteten Speicherung über Zeiger haben wir schon in 
Abschnitt 1.3.5.1 kennengelernt. Dabei wurden innerhalb einer Kunden¬ 
datei in jedem Datensatz zwei zusätzliche Datenfelder mit Zeigern (sog. 
Zeigerfelder) angefügt. 

Strukturiert man die Datensätze als "Gekettete Liste (Linked List)", dann 
werden damit ebenfalls Sätze innerhalb einer Datei verkettet. Auf die 
Datenstruktur der geketteten Liste sind wir in Abschnitt 3.9 eingegangen. 
Das Verketten von Datensätzen in ein und derselben Datei nennt man 
auch interne Verkettung. 

Das Prinzip der Verkettung läßt sich auch auf mehrere Dateien anwenden: 
Ein Datenfeld einer Datei A enthält einen Verweis (Zeiger) auf einen Satz 
einer Datei B. Man spricht dann von der externen Verkettung. 

In einer Datenbank können beide Typen der Verkettung angewendet wer¬ 
den. 


Verkettung durch 


Interne Verkettung 

Verkettung innerhalb 
einer Datei: 

Feld 5 von Satz 44 
der Datei A 

zeigt auf 

I 

Satz 77 

derselben Datei A 


Zeiger 

Externe Verkettung 

Verkettung zwischen 
mehreren Dateien: 

Feld 5 von Satz 44 
der Datei A 

.1 f 

zeigt auf 

j 

Satz ll 

einer anderen Datei B 


Dateiverarbeitung: Zwei Typen der Verkettung 
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3.11.1 Externe Verkettung von vier Dateien (Fakturierung) 

Als erstes Beispiel zur Verkettung von Dateien betrachten wir eine An¬ 
wendung der Rechnungsschreibung bzw. Fakturierung. 


Verkettung innerhalb einer Datei: 

Beispiele: 

1) Kundendatei in Abschnitt 1.3.5.1 

2) Datensätze sortiert ausgeben anhand einer geketteten Liste (Linked 
List) in Abschnitt 3.9 

Verkettung mehrerer Dateien: 

Beispiel: 

Fakturierung mit Bestelldatei, Kundendatei, Artikeldatei und Of- 
fene-Posten-Datei. 


Bestellsatz Kundnr Artnr Anzahl Datum 



4 ] 

i_l 


Kundensatz 

Kundnr 

Name Kontostand Umsatz Datumrech 


r - 1 


Artikelsatz 

Artnr Bez Bestand Stückpreis Einkpreis 




1 


OPOS-Satz Rechnr Kundnr Name Datum Betrag Mahnst 


Verkettung von vier Dateien am Beispiel der Fakturierung 


Die Tagesbestellungen werden in einer BESTELLDATEI erfaßt, gesam¬ 
melt bzw. gestapelt, um z.B. abends zur Rechnungsschreibung verwendet 
zu werden. Jeder Bestellsatz umfaßt u.a. die Datenfelder KUNDNR, 
ARTNR, ANZAHL des bestellten Artikels und das DATUM (vereinfa¬ 
chende Annahme: nur ein Artikel pro Bestellung). Das Feld KUNDNR 
wird als Zeiger auf die KUNDENDATEI aufgefaßt; dieser Zeiger be¬ 
wirkt, daß die entsprechenden Kundenstammdaten verfügbar sind. Die 
ARTNR als Zeiger dient zur Verkettung der ARTIKELDATEI: Die zuge¬ 
hörigen Artikelangaben können jetzt auf die Rechnung gedruckt werden. 
Die KUNDNR verkettet nicht nur mit der KUNDENDATEI, sondern 
auch mit der OFFENE - POSTEN - DATEI bzw. OPOS-DATEI. So kann 
man nachsehen, ob gerade offene und ungemahnte Rechnungen vorliegen. 
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um z.B. bei "MAHNSTUFE 2" besondere Zahlungsbedingungen auf der 
Rechnung zu vermerken. 

Datenfelder, über die Datensätze derselben oder einer anderen Datei un¬ 
verwechselbar bzw. eindeutig identifiziert werden können, nennt man 
eindeutige Schlüssel. Eine Postleitzahl z.B. kann nicht als solcher Schlüssel 
verwendet werden (da ggf. mehrere Kunden am gleichen Ort wohnen); 
auch der Name ist wenig geeignet (da z.B. mehrere "Müller" existieren). 
Aus Gründen der Eindeutigkeit werden zumeist numerische Schlüssel de¬ 
finiert, wie hier die Schlüssel KUNDNR, ARTNR und RECHNR. 

In einer Stammdatei werden Sätze zusammengefaßt, deren Anzahl sich 
selten ändert (vgl. Abschnitt 1.3.1.1). Demgegenüber zeichnet sich eine 
Bewegungsdatei dadurch aus, daß sich ihre Größe häufig ändert. In un¬ 
serem Beispiel liegt nur mit der Bestelldatei eine Bewegungsdatei vor. 


Kennzeichen: Stammdatei: Bewegungsdatei: 


Inhalt der Sätze 

... häufig 

... selten 

ändert sich ... 

(z.B. Umsatz) 

(z.B. Datum) 

Anzahl der Sätze 

... selten 

... häufig 

ändert sich ... 

(z.B.neuer 

(z.B. Bestellungen 


Artikel) 

jeden Tag) 

Beispiele für 

Kundendatei, 

Bestelldatei 

Dateien: 

Artikeldatei, 

OPOS-Datei 



Trennung von Stammdatei und Bewegungsdatei 


3.11.2 Externe wie interne Verkettung von zwei Dateien (Literatur) 

Wenden wir uns dem weiten Gebiet der Literaturdokumentation am Bei¬ 
spiel der Verwaltung von Büchern zu: Zunächst legen wir eine Buchdatei 
mit fester Datensatzlänge an. Jeder Satz weist Datenfelder wie Buchtitel, 
Verlag, ... auf und zusätzlich ein Zeigerfeld, dessen Inhalt (Zeiger, 
Pointer) auf den nachfolgenden Datensatz zeigt. Diese Buchdatei wird 
zunächst mit zehn Leersätzen (siehe Beispiel) als Direktzugriffsdatei an¬ 
gelegt. 
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In einer zweiten Autorendatei speichern wir Namen von Buchverfassern, 
wobei jeder Satz zwei zusätzliche Zeigerfelder mit Verweisen auf die 
Buchdatei hat: Zeiger ZI zeigt auf die erste vom betreffenden Autor in 
der Buchdatei besetzte Satznummer, und Zeiger Z2 auf den letzten be¬ 
setzten Satz. 

Das wiedergegebene Beispiel zeigt den Inhalt dieser verketteten Dateien 
zu Beginn leer (Zustand (A)), mit drei Büchern von zwei Autoren (Zu¬ 
stand (B)) und mit vier Büchern von zwei Autoren (Zustand (C)). 

Zu Zustand (A): Die Buchdatei ist leer angelegt. In Datensatz 0 ist mit 
S0=1 die erste freie Satznummer sowie mit S1=10 die letzte freie Satz¬ 
nummer vermerkt. Die Zeiger Z zeigen von Satz 1 bis Satz 10 und bilden 
eine Vollkette (0=Kettenende). Die Autorendatei ist ebenfalls leer. Für die 
beiden Zeiger ZI und Z2 werden keine Leerketten aufgebaut, sondern 
jeweils Null eingetragen. 

Zu Zustand (B): Für Autor JANOSCH werden die beiden Buchtitel 
GEBURTSTAG und HAU DEN LUKAS eingetragen. In Satz 0 der 
Buchdatei zeigt S0=4 nun auf den vierten Satz als ersten freien Satz. Der 
Titel VATER U. SOHN von Autor PLAUEN ist als dritter Satz ein¬ 
getragen. Die Buchdatei enthält drei Teilketten: Sätze 1-2 für JANOSCH, 
Satz 3 für PLAUEN sowie Sätze 4-10 leer. Das Ende einer Kette wird 
durch einen Zeigerwert gleich Null vermerkt. Der Anfang einer Kette 
wird entweder durch einen Zeiger ZI aus der Autorendatei, oder im Falle 
der Leerkette durch Sl aus Satz 0 der Buchdatei gegeben. 

Zu Zustand (C): Zusätzlich wird das Buch GLIWI von JANOSCH gespei¬ 
chert, und zwar als nächster freier Satz, d.h. als vierter Satz in der Buch¬ 
datei. Andere Sätze werden nicht bewegt, sondern nur Zeigervermerke 
geändert. SO wird von 4 auf 5 erhöht, Z im zweiten Buchsatz von 0 auf 4 
gesetzt. In der Autorendatei wird Z2 für JANOSCH von 2 auf 4 geändert. 

Auch andere Arten des Änderungsdienstes (Löschen, Titeländern) werden 
ohne Bewegung der Sätze allein über die Zeigervermerke verarbeitet. 

Das Beispiel zeigt, daß oft die interne und externe Verkettung gleichzeitig 
vorhanden sind: die Verkettung von Sätzen innerhalb einer Datei (hier in 
der Buchdatei) und die Verkettung zwischen Dateien (hier von der Auto¬ 
rendatei zur Buchdatei). 

Die Verkettung von Dateien über Zeiger bringt besondere Probleme bei 
der Reorganisation der einzelnen Datei (z.B. Löschen eines Datensatzes, 
auf den von einer anderen Datei weiterhin mit einem Zeiger verwiesen 
wird). In jedem Fall müssen alle Zeigerverweise bei Reorganisation bzw. 
Änderungsdienst auf Gültigkeit überprüft werden. 
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Buchdatei: 


Autorendatei: 



Zustand (A): leer 


Zustand (A): leer 



Z 


ZI 

Z2 

0S0=1 Sl = 10 


0 1 5 



1 leer 

2 

1 leer 

0 

0 

2 leer 

3 

2 leer 

0 

0 

3 leer 

4 

3 leer 

0 

0 

4 leer 

5 

4 leer 

0 

0 

5 leer 

6 

5 leer 

0 

0 

6 leer 

7 




7 leer 

8 




8 leer 

9 




9 leer 

10 




10 leer 

0 

Eine Kette: 1 

-10 


Zustand (B): 3 Bücher 


Zustand (C): 2 Autoren 


Z 


ZI 

Z2 

0 S0=4 S! = 10 


0 3 5 



1 GEBURTSTAG 

2 

1 JANOSCH 

1 

2 

2 HAU DEN LUKAS 

0 

2 PLAUEN 

3 

3 

3 VATER U. SOHN 

0 

3 leer 

0 

0 

4 leer 

5 

4 leer 

0 

0 

5 leer 

6 

5 leer 

0 

0 

6 leer 

7 




7 leer 

8 




8 leer 

9 




9 leer 

10 




10 leer 

0 

Drei Ketten: 

1-2, 3-3, 

4-10 

Zustand (C): 4 Bücher 


Zustand (C): 

2 Autoren 


Z 


ZI 

Z2 

0 S0=5 Sl = 10 


0 3 5 



1 GEBURTSTAG 

2 

1 JANOSCH 

1 

4 

2 HAU DEN LUKAS 

4 

2 PLAUEN 

3 

3 

3 VATER U. SOHN 

0 

3 leer 

0 

0 

4 GLIWI 

0 

4 leer 

0 

0 

5 leer 

6 

5 leer 

0 

0 

6 leer 

7 




7 leer 

8 




8 leer 

9 




9 leer 

10 




10 leer 

0 

Drei Ketten: 

1-2+4, 3- 

3, 5- 


Verkettung von Autoren- und Buchdatei intern sowie extern 
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3.12 Unterbrechungsereignisse 


Bisher mußten wir, um festzustellen, ob ein bestimmtes Ereignis 
eingetreten ist (wie z.B. den Druck einer Maustaste), dieses Ereignis 
ständig überwachen. Selbst bei der Menüverwaltung mit "ON MENU 
GOSUB" (siehe Abschnitt 3.4.3) war eine wiederholte Ausführung von 
"ON MENU" erforderlich, um gegebenenfalls eine Reaktion auszulösen. 
Bei einigen Ereignissen ist es jedoch möglich, den Computer so zu pro¬ 
grammieren, daß er bei ihrem Auftreten automatisch das laufende Pro¬ 
gramm unterbricht und ein spezielles Unterprogramm anspringt. Solche 
Ereignisse nennt man Unterbrechungsereignisse, das selbständige Auslösen 
einer Unterbrechung Event Trapping. 

Der Atari kennt unter GFA-Basic drei solcher Unterbrechungsereignisse, 
auf die er reagieren kann: 


1. Auftreten eines Programmfehlers. 

2. Betätigen der Break-Tastenkombination (gleichzeitiges Drücken der 
Control-, Alternate- und linker Shift-Taste). 

3. Ablauf einer vorgegebenen Zeitspanne. 


3.12.1 Fehler- und Programmabbruchbehandlung 

Normalerweise führen Fehler während des Programmablaufs zum Ab¬ 
bruch des Programms. Manchmal kann es jedoch sinnvoll sein, Fehler 
programmintern zu behandeln, um beispielsweise vor Ausstieg aus dem 
Programm noch wertvolle Daten auf die Diskette zu retten oder vielleicht 
sogar die Fehlerursache beheben zu können. 

Das folgende Programm FEHLER demonstriert die dazu erforderlichen 
Schritte. 


Codierung zu Programm FEHLER: 

REM ====== Programm FEHLER 

PRINT "Demonstration der programminternen Fehlerbehandlung" 

i 

ON ERROR GOSUB fehler !Fehlerbehandlungsroutine aktivieren 
DIM a(10) 

DIM a(20) !1.Fehler auslösen 

PRINT 

PRINT "Dimensionierungsfehler abgefangen!" 

PRINT 
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PRINT "5/0=";5/0 !2.Fehler auslösen 

PRINT "Dieser Text dürfte nicht ausgedruckt werden!" 

ende: 

END 

PROCEDURE fehler 

IF ERR=14 THEN !Feld zweimal dimensioniert 

ERASE a() 

ON ERROR GOSUB fehler 
RESUME 

ELSE !anderer Fehler 

PRINT 

PRINT »Fehler Nr.";ERR 
RESUME ende 
ENDIF 
RETURN 


Ausführung zu Programm FEHLER: 


Demonstration der programminternen Fehlerbehandlung 
Dimensionierungsfehler abgefangen! 

5/0= 

Fehler Nr.O 


Am Programmanfang wird durch den Befehl 

ON ERROR GOSUB Prozerdurname 


das Unterprogramm festgelegt, das bei Auftreten eines Fehlers 
angesprungen werden soll. Gleichzeitig aktiviert dieser Befehl auch die 
programminterne Fehlerbehandlung und schaltet die normale ab. 

Nun wird ein Fehler verursacht, indem zweimal hintereinander ein Array 
mit dem gleichen Namen dimensioniert wird. An diesem Punkt wird also 
in das Unterprogramm fehler verzweigt. Dort wird mittels der System¬ 
variablen ERR festgestellt, welche Fehler aufgetreten ist. In ERR steht 
eine Zahl, die den jeweiligen Fehlercode angibt (im Anhang des GFA- 
Basic Benutzerhandbuches sind alle Fehler mit ihren Codes aufgelistet). 

Ist ERR=14 (Feld zweimal dimensioniert), so sind wir imstande, den 
Fehler zu beheben, indem wir mit "ERASE a()" die alte Dimensionierung 
löschen und mit "RESUME" ins Hauptprogramm zurückkehren und die 
den Fehler verursachende Anweisung nochmals ausführen. Vorher wird 
aber noch einmal der ON-ERROR-Befehl ausgeführt, da nach jedem 
Fehler die normale Fehlerbehandlung wieder eingeschaltet wird und es 
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sonst nicht möglich wäre, mehrere hintereinander vorkommende Fehler 
abzufangen. 

Ist ERR <> 14, wird die Fehlernummer ausgegeben und das Programm 
beendet, indem mit "RESUME Marke" an das Programmende gesprungen 
wird. Der zweite im Programm ausgelöste Fehler, eine Division durch 
Null, veranlaßt genau dies, da sein Fehlercode die Null ist. 

Es existiert noch eine Variante des RESUME-Befehls: "RESUME NEXT". 
Bei dieser Anweisung wird die Fehlerbehandlungsroutine verlassen und 
bei dem auf den fehlerhaften Befehl folgenden Befehl weitergemacht. 

Der Befehl "ON ERROR" ist das Gegenstück zu "ON ERROR GOSUB” 
und schaltet die normale Fehlerbehandlung wieder ein. Diese beiden 
Befehle erlauben es, die Unterbrechungsfähigkeit gezielt zu steuern und 
etwa nur in bestimmten Programmteilen anzuwenden. 

Mit der Anweisung "ERROR x" kann im Programm künstlich der Fehler 
mit der Nummer x ausgelöst werden, um Fehlerabfangroutinen zu testen. 
Schließlich gibt es noch die Systemvariable FATAL, die dann wahr wird, 
wenn ein Systemfehler auf trat. In diesem Fall sind die Befehle "RESUME" 
und "RESUME NEXT" nicht mehr möglich. 


Das Abfangen der Programmabbruchtastenkombination Control-Shift- 
Alternate verläuft ganz analog zur Fehlerbehandlung. Mit 

ON BREAK GOSUB Prozedurname 

wird sie aktiviert und die anzuspringende Prozedur festgelegt. Mit 
"ON BREAK" wird der normale Programmabruch wieder eingeschaltet. 
Im Gegensatz zur obigen Fehlerunterbrechung geschieht letzteres nicht 
automatisch beim Auftreten des Unterbrechungsereignisses. 

Zum Schluß sei noch die Anweisung 

ON BREAK CONT 

erwähnt, die die Programmunterbrechungsmöglichkeit bis zum nächsten 
"ON BREAK" ganz abschaltet. Letzterer Befehl sollte daher nur eingesetzt 
werden, wenn das gesamte restliche Programm ausgetestet und gespeichert 
ist. 


3.12.2 Zeitlich gesteuerte Unterbrechungen 

Das folgende Programm HEIZUNG soll die Nachtabsenkung einer 
Zentralheizung simulieren. Des Nachts dreht der Computer die Heizung 
aus, tagsüber schaltet er sie wieder an. Im Programm wird dieser 
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regelmäßig wiederkehrende Schaltvorgang durch ein AFTER-Zeitspanne- 
GOSUB-Befehl ausgelöst, ganz unabhängig vom Hauptprogramm. Dieser 
Befehl bewirkt, daß nach der mit Zeitspanne in zweihundertstel Sekunden 
angegebenen Zeit zum spezifizierten Unterprogramm verzweigt wird. 
Parallel zur Heizungsschaltung wird mit EVERY-Zeitspanne-GOSUB eine 
Uhr weitergezählt (dabei entspricht zwei Sekunden einer Stunde). Der 
EVERY-Befehl veranlaßt den Aufruf des angegebenen Unterprogramms 
alle Zeitspanne zweihundertstel Sekunden. 


Codierung zu Programm HEIZUNG: 

REM ====== Programm HEIZUNG 

PRINT "Demonstration der EVERY- und AFTER-Befehle" 

PRINT "anhand einer Heizungssteuerung" 

PRINT 

i 

REM ====== Vereinbarungsteil 

' zeit%: Uhrzeit in Stunden 

1 heizung!: TRUE: Heizung an / FALSE: Heizung aus 

i 

REM ====== Anweisungsteil 

LET zeit%=6 
EVERY 400 GOSUB uhr 
LET heizung!=FALSE 
schalt 
REPEAT 

UNTIL INKEY$<>"" 

EVERY STOP 
AFTER STOP 
END 

i 

PROCEDURE uhr 

LET zeit%=zeit% MOD 24+1 
PRINT zeit%"'Uhr" 

RETURN 

i 

PROCEDURE schalt 
IF heizung! THEN 

AFTER 8*400 GOSUB schalt !In 8 Stunden (6 Uhr) Heizung wieder anschalten 
LET heizung!=FALSE 
PRINT "Heizung aus!" 

ELSE 

AFTER 16*400 GOSUB schalt !In 16 Stunden (22 Uhr) Heizung wieder ausschalten 
LET heizung!=TRUE 
PRINT "Heizung an!" 

ENDIF 

RETURN 


!Alle 2 Sekunden uhr aufrufen 

!Heizung anschalten 
JWartescheife 

!Event-Trapping wieder ausschalten 
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Ausführung zu Programm HEIZUNG: 


Demonstration der EVERY- und AFTER-Befehle 
anhand einer Heizungssteuerung 

Heizung an! 

7 Uhr 

8 Uhr 

9 Uhr 

10 Uhr 

11 Uhr 

12 Uhr 

13 Uhr 

14 Uhr 

15 Uhr 

16 Uhr 

17 Uhr 

18 Uhr 

19 Uhr 

20 Uhr 

21 Uhr 

22 Uhr 
Heizung aus! 

Die in der Variablen zeit% gespeicherte Stundenzahl wird vom 
Unterprogramm uhr alle zwei Sekunden um eins weitergezählt und 
ausgegeben. 

Das Unterprogramm schalt ist für die Heizungsschaltung zuständig, es 
wird am Programmanfang (sechs Uhr morgens) einmal vom Haupt¬ 
programm aufgerufen, später erfolgt der Aufruf ausschließlich über die 
in schalt stehenden AFTER-Befehle. Je nach vorherigem Zustand der 
Heizung wird entweder 8 (Heizung war an) oder 16 (Heizung war aus) 
Stunden mit dem erneuten Aufruf gewartet. Dadurch wird erreicht, daß 
die Heizung immer um 6 Uhr ein- und um 22 Uhr ausgeschaltet wird. 

Da die gesamte Steuerung automatisch abgearbeitet wird, besteht das 
eigentliche Hauptprogramm nur aus einer REPEAT-UNTIL-Schleife, die 
auf einen Tastendruck wartet. Theoretisch könnten aber vom Haupt¬ 
programm währenddessen auch ganz andere Dinge ausgeführt werden, das 
ist ja der ganze Sinn der Unterbrechungsereignisse. Allerdings ist dabei zu 
beachten, daß die mit EVERY und AFTER angegebenen Unter¬ 
programme nicht während einer Befehlsausführung angesprungen werden. 
Langsam arbeitende Befehle können also unter Umständen können den 
korrekten zeitlichen Ablauf stören. 

Am Schluß des Programms wird mit "AFTER STOP" und "EVERY STOP" 
das Event-Trapping wieder ausgeschaltet. Die Gegenstücke zu diesen 
Befehlen, "AFTER CONT" und "EVERY CONT", die die Unter¬ 
brechungsfähigkeit erneut einschalten, gibt es ebenfalls. Sie werden aber 
im Beispielprogramm nicht verwendet. 


23 Uhr 

24 Uhr 

1 Uhr 

2 Uhr 

3 Uhr 

4 Uhr 

5 Uhr 

6 Uhr 

Heizung an! 

7 Uhr 


usw. 
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GFA-Basic wartet mit einer ganzen Reihe von Grafikbefehlen auf, um 
die Fähigkeiten des Atari-Computers für den Programmierer zugänglich 
zu machen. Der Atari unterscheidet auch nicht - wie einige andere 
Computer - zwischen Text- und Grafikmodus; er befindet sich vielmehr 
ständig in einem grafikfähigen Modus, in dem gleichzeitig auch der Text 
dargestellt wird. Dies erleichtert die simultane Darstellung von Text und 
Grafik enorm. 


3.13.1 Die Grafikmodi und die Farben 

Auf dem Atari existieren drei verschiedene Grafikmodi, die sich vonein¬ 
ander durch ihre Auflösung und die Anzahl der darstellbaren Farben 
unterscheiden. Die Auflösung gibt an, wieviele Bildpunkte (Englisch 
"pixel") maximal horizontal und vertikal dargestellt werden können. Bei 
der höchsten Auflösung gibt es beispielsweise 256000 Punkte, 640 in jeder 
Zeile und 400 in jeder Spalte. 

Jeder Punkt des Ausgabebildschirms läßt sich mit zwei Koordinaten x 
und y gezielt ansprechen. Dabei dürfen x und y Werte zwischen Null und 
der um Eins verringerten horizontalen bzw. vertikalen Auflösung 
annehmen. Wie bei der Textausgabe mit PRINT...AT befindet sich der 
Koordinatenursprung (0,0) in der oberen linken Ecke, d.h., Bildpunkte 
mit größeren y-Werten liegen weiter unten. 

Der Bildschirmspeicher hat unabhängig vom gewählten Grafikmodus eine 
Größe von 32000 Byte. Da aber bei höherer Auflösung mehr Speicher für 
die Verwaltung der großen Zahl von Bildpunkten benötigt wird, muß die 
Farbauswahl eingeschränkt werden. 


1. Niedrige Auflösung: 

320 (horizontal) mal 200 (vertikal) Bildpunkte 
16 aus 512 Farben gleichzeitig darstellbar 

2. Mittlere Auflösung: 

640 mal 200 Bildpunkte 

4 aus 512 Farben gleichzeitig darstellbar 

3. Hohe Auflösung 

640 mal 400 Bildpunkte 
2 mögliche Farben 


Die drei Grafikmodi 



3.13 Grafik 


399 


Der Grafikmodus kann im Desktop unter dem Menü "Extras" mit dem 
Menüpunkt "Voreinstellung" eingestellt werden. Dabei ist allerding zu 
beachten, daß der Atari selbsttätig erkennt, ob ein Färb- oder ein 
Schwarz-Weiß-Monitor angeschlossen ist und dementsprechend die Wahl¬ 
möglichkeiten einschränkt: Bei einem normalen Farbmonitor oder 
Fernseher ist nur die niedrige und mittlere Auflösung möglich, bei einem 
Monochrommonitor wie der SM 124 nur die hohe. 

Der Editor von GFA-Basic arbeitet, unabhängig von der Einstellung, in 
der höchsten verfügbaren Auflösung. Diese Tatsache hat aber keinen 
Einfluß auf die Programmausgabe, die sich nach der Voreinstellung 
richtet. 


Nun zu den Farben: 

Der Atari erzeugt eine Farbe durch Mischen der drei Grundfarben Rot, 
Grün und Blau, genau wie ein Farbfernseher. So erhält ein farbiger Bild- 
schirmpunkt durch eine hohe Rot-, eine hohe Blau- und eine niedrige 
Grün-Intensität beispielsweise die Farbe Violett. Der Atari kontrolliert 
also direkt die Farbmischung des angeschlossenen Monitors. Da es sich bei 
einem Computer jedoch um ein digital arbeitendes System handelt, ist die 
Farbintensität der drei Grundfarben nicht stufenlos steuerbar; jede Farbe 
kann in 8 verschiedenen Intensitätsstufen dargestellt werden. Dies führt 
zu 512 unterschiedlichen Farben. (8 verschiedene Rottöne multipliziert 
mit 8 verschiedenen Grüntönen multipliziert mit 8 verschiedenen 
Blautönen: 8*8*8=512.) 

Diese 512 Farben lassen sich in BASIC allerdings nicht gleichzeitig auf 
den Bildschirm bringen. Der Programmierer muß je nach Grafikmodus 
eine Auswahl von 4 bzw. 16 Farben treffen (bei der hohen Auflösung 
sind nur die Farben Schwarz und Weiß möglich). Diese maximal 16 Far¬ 
ben werden in den sogenannten Farbregistern festgehalten; die Farbe 
jedes Bildschirmpunktes ist einem dieser Register zugeordnet. Mit den 
Befehlen 

SETCOLOR Farbregisternummer,r,g,b 

SETCOLOR Farbregisternummer,Farbwert 

können die Rot-Grün-Blau Anteile in einem Farbregister eingestellt 
werden. Dabei darf für Farbregisternummer eine Zahl zwischen 0 und 15 
stehen, für die Parameter r,g und b jeweils eine Zahl zwischen 0 und 7, 
die die Intensität des entsprechenden Farbanteils angibt (0: minimale 
Intensität, 7: maximale). Bei der zweiten Variante dieses Befehls stehen 
die RGB-Anteile codiert in dem einen Parameter Farbwert, und zwar in 
der Form: 256*Rotanteil + 16*Grünanteil + Blauanteil. 

Mit Hilfe des SETCOLOR-Befehls kann sich der Programmierer also 
genau die Farben zusammenstellen, die er für seine Anwendung benötigt 
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und ist nicht an eine vorgegebene Farbpalette gebunden. So besteht die 
Möglichkeit, sich fünf verschiedene Rottöne zu definieren oder durch die 
Wahl benachbarter Farben fließende Übergänge zu gestalten. 

Bei Änderung der Rot-Grün-Blau-Intensität in einem Farbregister ändert 
sich die Farbe aller Objekte auf dem Bildschirm, deren Farbe diesem 
Farbregister zugeordnet ist, die also mit der Farbe aus diesem Farbregister 
gezeichnet worden sind. Dies bedeutet, daß die Farbe eines Objekts 
keineswegs endgültig ist, sondern jederzeit durch modifizierte Farbinten¬ 
sitäten geändert werden kann, ohne daß unbedingt das Objekt neu 
gezeichnet werden müßte. 

Um die gewählten Farben für die Zeichenbefehle, die in den folgenden 
Abschnitten vorgestellt werden, zugänglich zu machen, benötigen wir 
einen Befehl zum Einstellen einer aktuellen Zeichenfarbe: 

COLOR Farbnummer 


tut genau dies. Nach diesem Befehl erfolgen alle Grafikausgaben in der 
angegebenen Farbe. Dabei ist Farbnummer wieder eine Zahl von 0 bis 15, 
die aber leider nicht mit der Farbregisternummer übereinstimmt. Der Wert 
für Farbnummer ist den Farbregistern aus folgende Weise zugeordnet: 


Niedrige Auflösung: 

SETCOLOR: 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 
COLOR: 0 2 3 6 4 7 5 8 9 10 11 14 12 15 13 1 


Mittlere Auflösung: 

SETCOLOR: 

COLOR: 


0 12 3 
0 2 3 1 


Hohe Auflösung: 

Die Farbregister sind hier nicht beliebig einstellbar. 

Allerdings kann z.B. mit "SETCOLOR 0, gerade Zahl" die gesamte 
Ausgabe invertiert werden (d.h., Farbe 0 wird Schwarz und Farbe 1 
Weiß). Mit "SETCOLOR 0, ungerade Zahl" wird sie wieder normal. 


Die Zuordnung der Farbregister zum Parameter des COLOR-Befehls 



3.13 Grafik 


401 


Wer sich die Umrechnung mit der Farbregisterzuordnung ersparen will, 
kann statt SETCOLOR einen der folgenden Befehle verwenden: 

VSETCOLOR Farbnumre^r^b 
VSETCOLOR Farbnummer,Farbwert 

Die Bedeutung der Parameter r,g,b und Farbwert ist genauso wie bei 
SETCOLOR. Farbnummer ist eine Zahl von 0 bis 15, die zwar nicht mit 
der Farbregisternummer übereinstimmt, aber dafür mit der in der 
COLOR-Anweisung angegebenen Farbe. Wir werden in den folgenden 
Programmen der Einfachheit halber nur von VSETCOLOR Gebrauch 
machen. 


3.13.2 Elementare Zeichenbefehle 

In diesem Abschnitt werden anhand des einfachen Zeichenprogramms 
ZEICHNE die elementaren Grafikbefehle erklärt. Dieses Programm ist so 
ausgelegt, daß es in allen drei Auflösungen lauffähig ist. Dazu wird am 
Anfang des Programms mittels der Betriebssystemfunktion XBIOS(4) die 
eingestellte Auflösung ermittelt (der Umgang mit diesen Funktionen wird 
im nächsten Kapitel genauer erläutert). XBIOS(4) liefert eine 0 zurück, 
wenn man sich in der niedrigen Auflösung befindet, eine 1 bei der mitt¬ 
leren und eine 2 bei der hohen. 

Jede Grafikausgabe im Programm ist mit Korrekturfaktoren versehen (das 
sind die Variablen xk und yk; xk korrigiert die x-Koordinaten und yk die 
y-Koordinaten). Zunächst einmal wird von der hohen Auflösung ausge¬ 
gangen, d.h., xk und yk haben beide den Wert Eins. Stellt sich nun 
heraus, daß aber die mittlere Auflösung eingestellt wurde (vertikale Bild¬ 
schirmauflösung nur noch halb so groß), so wird yk auf 0.5 gesetzt. 
Handelt es sich sogar um die niedrige Auflösung, so wird beiden 
Korrekturfaktoren 0.5 zugewiesen. Da bei allen Bildschirmausgaben der 
richtige Wert für die hohe Auflösung mal dem Korrekturfaktor steht, 
erhält man den gewünschten Effekt. So würde beispielsweise eine Linie, 
die von den Koordinaten (0,0) bis (640*xk-l,400*yk-l) gezeichnet wurde, 
bei allen Auflösung von der oberen linken bis zur unteren rechten Ecke 
verlaufen. 

Auch bei der Textausgabe muß man aufpassen, da in der niedrigen Auf¬ 
lösung statt 80 nur noch 40 Zeichen in eine Zeile passen. Unter 
Umständen muß also auch bei PRINT-Befehlen der momentane Grafik¬ 
modus berücksichtigt werden (siehe z.B. Unterprogramm koordinaten von 
ZEICHNE). 


Bei der Festlegung von xk und yk wird in der Variablen farben% die 
maximal darstellbare Farbenanzahl gespeichert. Danach wird mit den 
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Anweisungen "LET breite°/o=640*xk" und "LET hoehe%=400*yk" für 
spätere Zwecke die horizontale und vertikale Auflösung konkret ausge¬ 
rechnet. Es sei nochmal darauf hingewiesen: Die x- und y- Koordinaten 
fangen bei Null an, d.h., bei 640 Punkten pro Zeile und 400 Spalten wird 
der ganz unten rechts liegender Punkt mit den Koordinaten (639.399) 
angesprochen. 


Die noch unbekannten Befehle im Programm ZEICHNE werden jetzt in 
der Reihenfolge ihres Auftretens erklärt: 

ZEICHNE ist ein sogenanntes Mal- oder Zeichenprogramm, es dient also 
nur dazu, das Zeichnen von Bildern auf dem Bildschirm zu erleichtern. 
Dabei fungiert die Maus als eine Art Stift, mit ihr können z.B. Punkte 
gesetzt werden. Dazu eignet sich die Form des Mauszeigers, also der Pfeil, 
nur wenig, brauchbarer wäre z.B. ein Fadenkreuz. Um die Gestalt des 
Mauszeiger zu verändern gibt es den Befehl 

DEFMOUSE Zahl 

Je nach dem Wert von Zahl, der zwischen 0 und 7 liegen muß, wird eine 
andere Form ausgewählt (0: Pfeil; 1: Doppelklammer; 2: Biene; 
3: Zeigende Hand; 4: Offene Hand; 5: Dünnes Fadenkreuz; 6: Fettes 
Fadenkreuz; 7: Umrandetes Fadenkreuz). Wir haben für das Programm die 
Form 5 gewählt. 

In einem Zeichenprogramm muß man auch die Zeichenfarbe wechseln 
können. Dazu werden am rechten Bildschirmrand kleine, unterschiedlich 
gefärbte Quadrate gemalt, so viele, wie es Farben gibt. Um nun eine 
andere Farbe zu wählen, klickt man einfach das entsprechende Quadrat 
mit der Maus an. Die gewählte Farbe wird Schwarz umrahmt. 

Im Programm wird nach dem DEFMOUSE-Befehl in einer FOR-NEXT- 
Schleife die Farbleiste gezeichnet. Die Rot-Grün-Blau Anteile werden 
dabei mit RANDOM(8) zufällig bestimmt, nur die Farben 0 und 1 werden 
mit Weiß und schwarz fest vorgegeben (nach der Schleife). Der Befehl 

BOX x1,y1,x2,y2 

zeichnet in der momentanen (mit COLOR eingestellten) Farbe ein 
Rechteck mit der oberen linken Ecke bei xl,yl und der unteren rechten 
bei x2,y2. Mit ihm werden die Umrandungen der "Farbkästchen" gemalt. 
Diesen Befehl gibt es in drei weiteren Variationen: 
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pbox xl,yl,x2,y2 zeichnet ein ausgefülltes Rechteck. 

rbox xl.yl.x2.y2 zeichnet ein Rechteck mit abge¬ 

rundeten Ecken. 

prbox xl,yl,x2,y2 zeichnet ein ausgefülltes Rechteck mit 

abgerundeten Ecken. 

Beim Zeichnen von ausgefüllten Figuren (wie z.B. mit dem Befehl PBOX) 
ist folgendes zu beachten: Es wird nicht mit der momentanen Zeichen¬ 
farbe ausgefüllt, sondern mit der durch den Befehl DEFFILL eingestell¬ 
ten. Mit DEFFILL kann auch ein Füllmuster bestimmt werden. Der 
Befehl hat eine der folgenden Formen: 


DEFFILL Farbnummer,Musterart,Musternummer 
DEFFILL Farlxiummer,MusterS 

Dabei können beliebige Paramter weggelassen werden, in diesem Fall wird 
einfach der alte Wert beibehalten. So ändert z.B. "DEFFILL Farbnummer" 
nur die Farbe, aber nicht das Füllmuster. "DEFFILL „Musternummer" 
würde nur die Füllmusternummer ändern. 

Der Parameter Farbnummer ist dabei wie üblich eine Zahl zwischen 0 
und 15 und entspricht der Farbnummer beim COLOR-Befehl, Musterart 
ist eine ganze Zahl zwischen 0 und 4 und gibt die Art der Flächenfüllung 
an (0: Fläche mit Hintergrundfarbe füllen; 1: Fläche ganz ausfüllen; 
2: Fläche punktieren; 3: Fläche schraffieren; 4: Fläche mit dem Atari- 
Symbol ausfüllen). Es existieren eine ganze Reihe vordefinierter Füllmu¬ 
ster, die alle im Anhang des GFA-Basic-Handbuches aufgeführt sind. Der 
Parameter Musternummer wählt eine von ihnen aus. 

Will man eigene Füllmuster erstellen, muß man die zweite der oben ange¬ 
gebenen DEFFILL-Befehlsvariationen benutzen. Im String MusterS ist 
dann codiert ein 16 mal 16 Pixel großes Füllmuster in Form von 16 im 
Wort-Format abgelegten Zahlen gespeichert (Zum Umwandeln von Zahlen 
in das benötigte Wort-Format kann gut die MKI$-Funktion verwendet 
werden). Die Bits des ersten Wortes geben an, welche Bildpunkte in der 
ersten Zeile des Füllmusters zu setzen sind, das zweite Wort gibt dies für 
die zweite Zeile an usw. (Ein Beispiel für selbstdefinierte Füllmuster steht 
in Abschnitt 3.14.3.) 

Bei der niedrigen und mittleren Auflösung muß in der Füllmuster¬ 
definition für jeden Punkt auch die Farbe angegeben werden. Da die 
Codierung von 4 Farben 2 Bit (2 2 =4) und die von 16 Farben 4 Bit erfor¬ 
dert (2 4 =16), kommen zu MusterS in der mittleren Auflösung 16 Worte 
und in der niedrigen 3*16=48 Worte hinzu. Die Bits an der gleichen Posi¬ 
tion in den zwei bzw. vier 16-Wort-Blöcken ergeben dann die Farbregi- 
sternummer (die nicht unbedingt der mit VSETCOLOR eingestellten 
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Farbnummer gleicht!), wobei das Bit aus dem ersten Block die kleinste 
Stellenwertigkeit hat. 

Ein Beispiel: Will man die Farbe des oberen rechten Punktes des Füll¬ 
musters ermitteln, muß man nachschauen, wie das ganz rechte Bit im 
ersten Wort der Definition gesetzt ist. Nehmen wir mal an, es sei eine 0. 
Nun sieht man sich das ganz rechte Bit im 17. Wort an; bei der niedrigen 
Auflösung auch das im 33. und 49. Seien diese weiteren Bits alle 1. Für 
das Farbregister ergibt sich dann in der mittleren Auflösung die binäre 
Zahl 10, also 2 dezimal, und in der niedrigen Auflösung die Zahl 1110, 
also 14 dezimal. 

Zurück zum Programm: 

Nachdem die Kästchenumrandung gezeichnet und mit "DEFFILL i%-l" 
eine neue Füllfarbe gewählt wurde, wird durch die Anweisung 

FILL x,y,Begrenzungsfarbe 

das Kästchen mit der Füllfarbe ausgefüllt. Der Füllvorgang beginnt an der 
angegebenen Koordinate und wird durch Bildpunkte mit der Begren¬ 
zungsfarbe oder dem Bildschirmrand begrenzt. Wird wie im Programm die 
Begrenzungsfarbe nicht genannt, so wirkt jede andere Farbe als die des 
Startpunkts als Begrenzungsfarbe. Da am Programmanfang der Bildschirm 
gelöscht wurde und die beim FILL-Befehl angegebene Koordinate inner¬ 
halb der mit BOX gezeichneten Kästchenumrahmung liegt, wird das 
Kästchen vollständig ausgefüllt. 

Nachdem die Schleife beendet und als weitere Vorbereitung ein großes 
Rechteck um die spätere Zeichenfläche gezeichnet worden ist, wird das 
Unterprogramm farbenanzeige angesprungen. Dieses Unterprogramm tut 
nichts anderes als die Zeichenfarbe auf den übergebenen Wert zu setzen 
und in der Farbleiste das richtige Kästchen zu markieren. 

Dabei kommt es allerdings zu Schwierigkeiten mit dem CLIP-Befehl. Der 
CLIP-Befehl ist dazu da, grafische Bildschirmausgaben auf einen 
bestimmten rechteckigen Bildschirmbereich zu begrenzen ("Clipping" 
kommt aus dem Englischen und bedeutet etwa "abschneiden"). Er wird 
später benutzt, um sicherzustellen, daß nicht über die Grenzen der 
Zeichenfläche hinaus gemalt wird. Da aber die Farbleiste außerhalb der 
Zeichenfläche liegt, muß, bevor dort etwas geändert werden kann, mit 
"CLIP OFF' das Clipping abgestellt werden. Am Ende von farbenanzeige 
wird mittels eines erneuten CLIP-Befehls die Grafikausgabe wieder auf 
die Zeichenfläche begrenzt. Vorher wird aber noch mit zwei BOX- 
Befehlen die Umrahmung um das Kästchen mit der alten Zeichenfarbe 
gelöscht und die neue Umrahmung gezeichnet. Außerdem wird sowohl die 
Zeichen- wie auch die Füllfarbe auf den übergebenen Wert gesetzt. 
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Der CLIP-Befehl tritt in 

vielen Variationen auf. Hier die wichtigsten: 

CLIP x1,y1 TO x2,y2 

Begrenzt Grafikausgaben auf das 
Rechteck mit der oberen linke 
Koordinate xl.yl und der unteren 
rechten x2,y2. 

CLIP OFFSET x,y 

Legt den Ursprung für Grafikausgaben 
auf den Punkt mit den Koordinaten 
(x,y). Die Koordinatenangaben in 
Grafikbefehlen beziehen sich jetzt auf 
diesen Punkt. 

CLIP OFF 

Schaltet das Clipping aus. 


Es sollte noch erwähnt werden, daß das Betriebsystem bei den hier vorge¬ 
stellten Grafikbefehlen auch ohne Benutzung des CLIP-Befehls automa¬ 
tisch am Bildschirmrand clippt. 


Das Programm ZEICHNE unterstützt das Zeichnen einfacher Figuren wie 
Linien, Ellipsen und Rechtecke. Das Umschalten zwischen diesen 
verschiedenen Möglichkeiten erfolgt durch Tastendruck: So kann man z.B. 
nach dem Betätigen der Taste "L" mit der Maus Linien ziehen, indem man 
im Anfangspunkt die linke Maustaste drückt, den Mauszeiger zum 
Endpunkt bewegt und dort wieder losläßt. Eine andere Taste als "L" 
(Linien), "E" (Ellipsen), "K" (Kästchen) oder "F" (Flächen füllen) bringt 
einen zum einfachen Punkte zeichnen zurück (Ein Druck auf die rechte 
Maustaste beendet das Programm). 

Die eigentliche Arbeit des Hauptprogramms besteht also darin, die Tasta¬ 
tur und die Mausbewegungen zu überwachen und entsprechend zu 
reagieren. Demzufolge ist die Hauptprogrammstruktur auch eine 
REPEAT-UNTIL-Schleife mit eingeschachtelten Fallabfragen. 

Am Anfang dieser Schleife wird das Unterprogramm koordinaten aufge¬ 
rufen, in dem zur Orientierung unten rechts auf dem Bildschirm die 
momentanen Mauszeigerkoordinaten ausgegeben werden. Da bei jeder 
Ausgabe der Mauszeiger kurzeitig verschwindet, werden die Koordinaten 
nur dann gedruckt, wenn sich die Position verändert hat, um ein 
unnötiges Flackern zu vermeiden. Der verwendete PRINT-AT-Befehl 
zeichnet unabhängig von der horizontalen Bildschirmauflösung immer 14 
Spalten links vom rechten Rand, denn der Ausdruck "breite%/8" gibt die 
Anzahl der in einer Zeile darstellbaren Zeichen an (Ein Zeichen des 
normalen Schrifttyps ist 8 Pixel breit). 
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Die momentane Mausposition liefern die Funktionen 
mousex und 

MOUSEY 

Der Zustand der Maustasten läßt sich aus dem Rückgabewert der 
Funktion 

MOUSEK 

entnehmen (0: keine Taste gedrückt; 1: linke Taste; 2: rechte Taste; 
3: beide Tasten). Der Aufruf dieser drei Funktionen kann auch in einer 
Anweisung zusammengefaßt werden: 

MOUSE x,y,k 

Nach ihrer Ausführung steht die Position des Mauszeigers in den 
Variablen x und y und der Tastenzustand in der Variablen k. 

Nach dem Aufruf von koordinaten erscheint im Programmtext die erste 
Fallabfrage. Sie wird nur durchlaufen, wenn der Zeichenmodus gewech¬ 
selt wurde und sie hat die Aufgabe, die neue Wahl unten links auf dem 
Bildschirm anzuzeigen. 

Im Programm wird dann als nächstes überprüft, ob eine andere Zeichen¬ 
farbe angewählt wurde. Wenn ja, wird mit der neuen Farbe das Unter¬ 
programm farbenanzeige angesprungen. 

Ist dies geschehen, erfolgt die eigentliche Befehlsausführung, die 
wiederum in einer Fallabrage integriert ist. Ist "Flächen füllen" gewählt 
und die linke Maustaste gedrückt, braucht nur die FILL-Anweisung mit 
der aktuellen Mausposition, die in den Variablen x und y abgelegt ist, 
auf gerufen zu werden. Ist "Punkte zeichnen" gewählt und die Maustaste 
gedrückt, so wird einfach mit dem Befehl 

PLOT x,y 

an der Position (x,y) ein Punkt in der momentanen Zeichenfarbe gemalt. 

Etwas komplizierter sind die drei anderen Fälle (Linien, Kästchen oder 
Ellipsen zeichnen). Allerdings ähneln sie sich so stark, daß ein Unterpro¬ 
gramm für die Erledigung ihrer Ausführung ausreicht. 

Es soll möglich sein, die Größe bzw. Lage der entsprechenden Figur 
während des Gedrückthaltens der linken Maustaste noch zu verändern, die 
Figur also zu ziehen (wie bei einem Fenster auf dem Desktop). Erst beim 
Loslassen der Taste soll sie endgültig fixiert werden. 
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Dazu wird im Unterprogramm zuerst untersucht, ob der Anfangspunkt 
der Linie bzw. die linke obere Ecke des Kästchens bzw. der Mittelpunkt 
der Ellipse schon gewählt wurde. Wenn nein, hat die Bool’sche Variable 
zieh! den Wert FALSE. In diesem Fall kann dann nämlich geprüft 
werden, ob etwa gerade in diesem Moment die Wahl durch Drücken der 
linken Maustaste vorgenommen wird. Wenn nicht, passiert nichts und das 
Unterprogramm ist beendet, wenn doch, dann wird zieh! auf TRUE 
gesetzt, die Anfangsposition (= momentane Mausposition) gemerkt und 
der Grafikmodus mit dem Befehl GRAPHMODE so geändert, daß ab 
jetzt die Grafikausgaben nicht mehr den vorherigen Bildschirminhalt 
überdecken, sondern invertieren. Dies ist notwendig, da die nun folgen¬ 
den Ausgaben nicht endgültig sind und der derzeitige Bildschirminhalt 
nicht gelöscht werden soll. Erst, wenn die linke Maustaste wieder losge¬ 
lassen wird, wird die gezogene Figur dauerhaft gezeichnet. Bei einer 
invertierenden Grafikausgabe kann eine Figur aber einfach dadurch 
wieder entfernt werden, indem sie nochmals gezeichnet wird. Dann wird 
der Hintergrund wieder so, wie er vorher war. 

Der Befehl GRAPHMODE hat folgende Form: 

GRAPHMODE n 

Der Parameter n ist eine Zahl von 1 bis 4 und gibt an, wie alle nun 
folgenden Grafikausgaben mit dem alten Bildschirminhalt verknüpft 
werden sollen (1: alten Inhalt ersetzen; 2: OR-Verknüpfung; 3: alten Inhalt 
invertieren (XOR); 4: neuen Inhalt invertieren und dann OR-verknüpfen). 

Ist zieh! TRUE, dann ist der Anfangspunkt der Figur schon gewählt aber 
die Figur noch nicht fixiert worden. Die Figur kann also noch "gezogen" 
werden, um sie in die endgültige Form zu bringen. Jetzt ist also eine 
Abfrage notwendig, ob die Maustaste immer noch gedrückt gehalten wird. 
Wenn ja, wird die alte Figur gelöscht (in dem sie nochmals gezeichnet 
wird) und eine neue mit den veränderten Mauskoordinaten gemalt. Wenn 
nein, wird der Grafikmodus wieder auf 1 zurückgesetzt, zieh! auf FALSE 
gesetzt und die Figur endgültig, d.h. überdeckend, gezeichnet. 
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Zum vollen Verständnis des Programms ZEICHNE fehlen jetzt nur noch 
zwei Anweisungen: 

Der Befehl 

LINE x1,y1,x2,y2 

ist völlig gleichbedeutend mit dem (im Programm nicht benutzten) Befehl 
DRAU xl.yl TO x2,y2 

und zeichnet eine Linie von den Koordinaten (xl,yl) zu den Koordinaten 
(x2,y2). Die Anweisung 

ELLIPSE x.y.rx.ry.wa.we 

zeichnet eine Ellipse um den Punkt (x,y) mit dem horizontalen Radius rx 
und dem vertikalen Radius ry. Optional können noch Anfangs- und 
Endwinkel wa und we angegeben werden, die es ermöglichen, nur einen 
Teil der Ellipse zu zeichnen (wa und we laufen von 0 bis 3600, also in 
ein-Zehntel-Grad-Schritten, 0 Grad liegt bei 3 Uhr, die Durchlauf¬ 
richtung ist entgegen dem Uhrzeigersinn). 

Der Vollständigkeit halber seien jetzt noch ein paar Befehle und Funk¬ 
tionen erwähnt, die nicht in ZEICHNE benutzt werden, aber zu den 
elementaren Zeichenanweisungen gehören: 

Der Befehl 


CIRCLE x,y,r,wa,we 

zeichnet einen Kreis mit dem Radius r um den Punkt (x,y). Die Para- 
meter wa und we haben die gleiche Bedeutung wie bei ELLIPSE. Zudem 
existieren noch die Befehle PCIRCLE und PELLIPSE, mit denen ausge¬ 
füllte Kreis- bzw. Ellipsensegmente erzeugt werden können. 

Abschließend bleibt nur die Funktion 

POINT(x,y) 


zu nennen, die die Farbe des Bildpunktes (x,y) als Ergebnis zurückgibt. 
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Codierung zu Programm ZEICHNE: 


REM ====== Programm ZEICHNE 

CLS 

PRINT " Ein einfaches Zeichenprogramm" 

i 

REM ====== Vereinbarungsteil 

• xk,yk: Korrekturfaktoren für die verschiedenen Auflösungen 

1 farben%: maximale Farbenanzahl 

• farbe%: aktuelle Zeichenfarbe 

• breite%,hoehe%: horizontale und vertikale Auflösung 

• x%,y%: aktuelle Position der Maus 

1 s$: aktueller Zeichenmodus 

1 t$: neue Tastatureingabe 

1 x0%,y0%,x1%,y1%: Anfangs- und Endpunkte der gezogenen Figuren 
1 zieh!: TRUE f wenn Linie, Kästchen oder Ellipse gezogen wird 

i 

REM ====== Anweisungsteil 

LET xk=1 !Hohe Auflösung 640x400 

LET yk=1 


LET farben%=2 

IF XBIOS(4)=1 THEN !Mittlere Auflösung 640x200 

LET yk=0.5 
LET farben%=4 
ENDIF 

IF XBIOS(4)=0 THEN {Niedrige Auflösung 320x200 

LET xk=0.5 
LET yk=0.5 
LET farben%=16 
ENDIF 

LET breiteX=640*xk 
LET hoehe%=400*yk 

DEFMOUSE 5 {Mauszeiger: kleines Kreuz 

COLOR 1 

FOR iX=1 TO farbenX !Farbkästchen am rechten Rand zeichnen 

VSETCOLOR iX-1,RAND0M(8),RAND0M(8),RAND0M(8) 

DEFFILL iX-1 

BOX breiteX-20*xk,iX*20*yk,breiteX-4*xk,iX*20*yk+16*yk 
FILL breiteX-20*xk+1,iX*20*yk+1 
NEXT iX 

VSETCOLOR 0 , 7 , 7,7 {Farbe 0: Weil? 

VSETCOLOR 1,0,0,0 {Farbe 1: Schwarz 

BOX 10*xk,18*yk,breiteX-24*xk,hoeheX-18*yk IZeichenfläche umrahmen 

farbenanzeige(l) {Farbe 1 als Zeichenfarbe wählen 

PRINT AT(3 / 25); ,, PUNKTE"; 

I 

REPEAT 

koordinaten 

* 

1 == EINGABEVERARBEITUNG == 

LET tS=INKEYS 
IF t$<>"" AND tSosS THEN 
PRINT AT<3,25); 

LET s$=UPPER$(t$) 

SELECT s$ 
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CASE "L" 

PRINT "LINIEN "; 

CASE "K" 

PRINT "KÄSTCHEN"; 

CASE "E" 

PRINT "ELLIPSEN"; 

CASE "F" 

PRINT "FÜLLEN "; 

DEFAULT 

PRINT "PUNKTE "; 

ENDSELECT 

ENDIF 

■ 

1 == FARBENWAHL == 

IF x%>breite%-24*xk AND MOUSEK=1 AND y%>20*yk AND y%<(farben%+1)*20*yk THEN 
farbenanzeige((y% DIV (20*yk))-1) 

ENDIF 

■ 

1 == BEFEHLSAUSFÜHRUNG == 

SELECT s$ 

CASE "L","K","E" .'Linien, Kästchen oder Ellipsen 

Ike 

CASE "F" !Flächen füllen 

IF MOUSEK=1 THEN 
FILL x%,y% 

ENDIF 

DEFAULT .'Punkte 

IF MOUSEK=1 THEN 
PLOT x%,y% 

ENDIF 
ENDSELECT 
UNTIL MOUSEK=2 
EDIT 
■ 

PROCEDURE farbenanzeige(neue farbe%) 

CLIP OFF 
COLOR 0 

BOX breite%-20*xk-1,<farbe%+1)*20*yk-1,breite%-4*xk+1,(farbe%+1)*20*yk+16*yk+1 
COLOR 1 

LET farbe%=neue_farbe% 

BOX breite%-20*xk-1,(farbe%+1)*20*yk-1,breite%-4*xk+1,(farbe%+1)*20*yk+16*yk+1 
COLOR farbe% 

DEFFILL farbe% 

CLIP 10*xk+1,18*yk+1 TO breite%-24*xk-1,hoehe%-18*yk-1 
RETURN 
■ 

PROCEDURE koordinaten 

IF MOUSEX<>x% OR MOUSEY<>y% THEN 
PRINT AT(breite%/8-14,25);"x:";x%"'y:";y%;" 

ENDIF 

LET x%=MOUSEX 
LET y%=MOUSEY 
RETURN 
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PROCEDURE Ike 

IF zieh! THEN .'Figur wurde gezogen 

IF MOUSEK-1 THEN !Figur wird immer noch gezogen 

IF s$="L" THEN 
LINE x0%,y0%,x1%,y1% 

LINE xOX,yOX,xX,y% 

ELSE IF s$="K" 

BOX xOX,yOX,x1X,y1X 
BOX xOX,yOX,xX,yX 
ELSE 

ELLIPSE xOX,yOX,x1%-x0%,y1%-y0% 

ELLIPSE xOX,yO%,x%-xO%,y%-yO% 

ENDIF 

LET x1X=xX 
LET y1%=y% 

ELSE 'Figur wird "fixiert" 

GRAPHMODE 1 
IF s$="L» THEN 
LINE xOX,yOX,x1X,y1X 
ELSE IF s$=»K» 

BOX xOX,yOX,x1X,y1X 
ELSE 

ELLIPSE xOX,yOX,x1X-xOX,y1X-yOX 
ENDIF 

LET zieh.'=FALSE 
ENDIF 
ELSE 

IF MOUSEK=1 THEN INeue Figur soll gezeichnet werden 

GRAPHMODE 3 
LET zieh!=TRUE 
LET xOX=xX 
LET yOX=yX 
LET x1X=xX 
LET y1X=yX 
ENDIF 
ENDIF 
RETURN 
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Beispielhafter Bildschirminhalt von Programm ZEICHNE: 

CU tlrtthw Z«lt> Mwn r—i _ 



puwte tun mn 


3.13.3 Weitergehende Zeichenbefehle 

Den meisten Raum in diesem Abschnitt nimmt das Programm 
DIAGRAMM ein, das die zu einer eingegebenen Zahlenfolge gehörenden 
Linien, Balken- und Tortendiagramme zeichnet (siehe Ausführungs¬ 
beispiel). In DIAGRAMM werden einige noch unbekannte Grafikbefehle 
verwendet, die, wie wir sehen werden, sehr nützlich sein können. 
DIAGRAMM ist wie die meisten der im Buch angedruckten Programme 
für die hohe Auflösungsstufe ausgelegt. Die am Programm ZEICHNE 
aufgezeigte Vorgehensweise, um ein Programm unter allen Grafikmodi 
uneingeschränkt lauffähig zu machen, wollen wir aus Gründen der Über¬ 
sichtlichkeit in diesem Fall nicht wieder anwenden. Benutzer von Farb¬ 
bildschirmen müssen also die Koordinatenangaben entsprechend ändern. 

Zum Unterprogramm werte von DIAGRAMM (Menüwahl 1): 

Bevor irgendein Diagramm überhaupt gezeichnet werden kann, muß eine 
Folge von Werten eingegeben werden. Dies geschieht in der Prozedur 
werte, wo zunächst nach der Anzahl gefragt wird (n%) und dann in einer 
Zählerschleife die einzelnen Zahlen und die dazu gehörenden Bezeich¬ 
nungen (für die Beschriftung der Diagramme) eingelesen und in w() bzw. 
b$() gespeichert werden. Die Werte dürfen auch negativ sein, allerdings 
kann das Tortendiagramm dann nicht mehr gezeichnet werden. 
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Da die Darstellung von Linien- und Balkendiagramm stets die gesamte 
Bildschirmhöhe ausnutzen soll, ist es erforderlich, den größten positiven 
und den kleinsten negativen Wert zu kennen. Diese Werte werden in der 
Zählerschleife ermittelt und kommen in die Variabein max bzw. min. 
Dabei werden die Funktionen 

MAX(Liste von Ausdrücken) und 

HlN(Liste von Ausdrücken) 

verwendet, die den größten bzw. kleinsten der angegebenen Ausdrücke 
zurückliefern (die Ausdrücke können auch vom Typ String sein). In 
unserem Fall besteht die Liste nur aus zwei Ausdrücken, nämlich aus 
zwei numerischen Variablen. 

Um das Tortendiagramm darzustellen, benötigt man die Summe aller ein¬ 
gegebenen Werte. Diese Zahl wird in w(0) festgehalten. 

Zum Unterprogramm koordkreuz : 

Dieses Unterprogramm wird vor dem Zeichnen der Linien- und Balken¬ 
diagramme aufgerufen. Es malt ein Koordinatenkreuz auf den Bildschirm 
und beschriftet dieses. Dazu wird zunächst die y-Koordinate der x-Achse 
berechnet und in der Variablen boden abgelegt (Diese globale Variable 
wird nachher auch von anderen Programmteilen benutzt), dann wird mit 
LINE-Befehlen das eigentliche Kreuz gezeichnet. 

Dabei fällt auf, daß die Variablen in den Zeichenbefehlen nicht vom Typ 
Ganzzahl, sondern vom Typ Real sind. Dies ist notwendig, da es bei der 
Benutzung von Integervariablen in anderen Programmteilen zu Rechenun¬ 
genauigkeiten kommen würde. GFA-Basic wandelt vor dem Zeichnen die 
angegebenen Variablen automatisch in ganzzahlige Werte um, so daß 
Realvariablen mit Kommaanteil ohne weiteres möglich sind. 

Die nun folgende Beschriftung der y-Achse ist mathematisch etwas 
komplizierter: Mit dem Ausdruck 

LET einheit=10“INT(LOG10(max-min)) 

wird die größte Zehnerpotenz berechnet, die kleiner oder gleich ist dem 
maximalen Wertunterschied max-min (Ist z.B. max-min=90, käme für 
einheit 10 heraus). Die Funktion LOG 10 berechnet dabei den Logarithmus 
zur Basis 10. (Den Logarithmus zur Basis e erhält man mit LOG.) Die 
Variable einheit gibt an, wie groß der Wertunterschied zwischen den 
Beschriftungspunkten der y-Achse ist. 
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Ist diese Berechnung geschehen, kann in einer FOR-NEXT-Schleife die 
Skala gezeichnet werden. Da die Lauf variable i% der Schleife keine Bild¬ 
schirmkoordinate ist, sondern ein Wert relativ zum Koordinatensystem des 
Diagramms, wird vor dem Zeichnen mit der benutzerdefinierten Funktion 
y(i) die y-Komponente der Bildschirmkoordinate ausgerechnet. Am 
Beschriftungspunkt wird eine kurze waagerechte Linie gezeichnet und mit 
der Anweisung TEXT der entsprechende y-Wert gerundet ausgegeben. 

Der TEXT-Befehl dient der Ausgabe von Texten an einem beliebigen 
Punkt des Bildschirms (bei PRINT war man ja an die Zeilen und Spalten 
gebunden). Er hat die folgende Form: 

TEXT x,y,Länge,Text 

Die Paramter x und y geben die Position der linken unteren Ecke des 
auszugebenden Textes an, mit Länge kann die Gesamtlänge der Text¬ 
ausgabe in Pixel eingestellt werden. Dabei wird nicht die Buchstaben¬ 
größe, sondern nur die Abstände der Zeichen untereinander (wenn Länge 
als positive Zahl angegeben wird) bzw. die Abstände der Worte (wenn 
Länge negativ) verändert. Wird Länge nicht angegeben oder ist sie 0, 
erfolgt eine normale Ausgabe. Text selber ist wie bei der PRINT- 
Anweisung ein in Anführungsstrichen eingeschlossener Text oder eine 
Variable (numerisch oder vom Typ String). 

Bei der Benutzung des TEXT-Befehls ist es vorteilhaft zu wissen, daß ein 
Zeichen des normalen Zeichensatzes 8 Pixel breit und 16 (bei der hohenn 
Auflösung) bzw. 8 Pixel (bei der niedrigen und miitleren Auflösung) hoch 
ist. 

Zum Unterprogramm linien (Menüwahl 2): 

Zunächst wird der horizontale Abstand der einzelnen Punkte im Dia¬ 
gramm ausgerechnet. Der erste Punkt hat immer die x-Koordinate 50 und 
der letzte die x-Koordinate 630. Insgesamt bleiben also 630-50=580 Pixel 
für die Darstellung. Ist n%=l, also wenn nur ein Wert zu zeichnen ist, 
würde in der Anweisung 

LET abstand=580/(n%-1) 

durch Null geteilt werden, ein Fall, der durch eine zusätzliche IF- 
Anweisung abgefangen werden muß. Bei n%=l wird abstand auf einen 
sehr großen Wert, 9999, gesetzt, dann wird die folgende FOR-NEXT- 
Schleife zum Einzeichnen der Werte nämlich nur einmal durchlaufen. 

Vor dieser Schleife wird aber noch mit dem Befehl DEFLINE das Aus¬ 
sehen der mit DRAW gezeichneten Linien verändert (DEFLINE wirkt 
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sich aber auch auf die anderen Zeichenbefehle aus, die mit Linien 
arbeiten). 

Alle Parameter des Befehls 

DEPLINE Linienart,Dicke,Anfangspunkt,Endpunkt 

sind optional. Dabei darf Linienart einen Wert von 0 bis 6 annehmen 
(0: Linie mit Hintergrundfarbe (Farbnummer 0) zeichnen; 1: durch¬ 
gezogene Linie; 2: gestrichelte Linie mit kleinen Lücken; 3: gepunktete 
Linie; 4: strichpunktierte Linie; 5: gestrichelte Linie mit großen Lücken; 
6: Linienmuster: Strich-Punkt-Punkt). Der Parameter Dicke gibt die Dicke 
der Linie in Pixel an (muß ungerade sein), Anfangs- und Endpunkt 
bestimmen das Aussehen der Anfangs- und Endpunkte der Linie 
(0: normal (glatt) abschließen; 1: mit Pfeil versehen; 2: abrunden). 

In der darauffolgenden Zeile wird der Befehl DEFTEXT benutzt, mit 
dem man das Aussehen der mit TEXT ausgegebenen Texte verändern 
kann. Er hat die folgende allgemeine Form: 

DEFTEXT Farbnummer.Stil,Winkel,Höhe,Fontnunmer 

Farbnummer gibt die Farbe an, Stil die Schriftart (0: normal; 1: fett; 
2: hell; 4: kursiv; 8: unterstrichen; 16: umrandet). Durch Addition der den 
Schriftarten zugeordneten Zahlen können die Schriftarten kombiniert 
werden. Winkel darf einen von vier Werten annehmen, der die Richtung 
der Textausgabe auf dem Bildschirm festlegt (0: nach rechts; 900: nach 
oben; 1800: auf dem Kopf stehend nach links; 2700: nach unten). Mit 
Höhe läßt sich die Zeichenhöhe der Ausgabe in Pixel einstellen. Schließ¬ 
lich gibt Fontnummmer die Nummer eines anderen Zeichensatzes an, der 
allerdings zuvor installiert werden muß. 

In der FOR-NEXT-Schleife wird jeder Wert in Form eines kleinen aus¬ 
gefüllten Kreises in das Diagramm eingezeichnet. Außerdem werden am 
unteren Bildschirmrand die Bezeichnungen um 90 Grad gedreht ausge¬ 
geben, damit bei großen n% noch alle unter das Diagramm passen. Zudem 
wird mit 

DRAU TO x,y 

der letzte Punkt mit dem aktuellen an der Position x,y durch eine 
gestrichelte Linie verbunden. Als Anfangskoordinate wird bei 
"DRAW TO" immer der letzte mit PLOT, LINE oder DRAW gezeichnete 
Punkt genommen. Da der erste Punkt keine vorherige Verbindung besitzt, 
wird vor der Schleife durch einen PLOT-Befehl die Anfangskoordinate 
des ersten DRAW-TO-Befehls auf den Endpunkt gesetzt. 
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Zum Unterprogramm balken (Menüwahl 3): 

Dieses Unterprogramm zeichnet das Balkendiagramm. Wie bei linien wird 
zunächst der horizontale Abstand des linken Balkenrandes zum nächsten 
berechnet (die Balken grenzen alle direkt aneinander, also gibt dieser Wert 
gleichzeitig auch ihre Breite an). Da der letzte Balken aber noch ganz auf 
den Bildschirm passen soll, wird die Zahl 580 statt durch n%-l durch n% 
geteilt. 

Die einzelnen Balken sollen einen dreidimensionalen Eindruck vermitteln 
(siehe Ausführungsbeispiel), also muß neben der Frontfläche auch die 
obere Fläche und die Seitenfläche gezeichnet werden (die Flächen werden 
alle verschieden dunkle schattiert, um den Eindruck der Räumlichkeit 
noch zu verstärken). Die hintere Kante der obere Fläche wird dabei um 
10 Pixel höher gezeichnet als die Oberkante des Balkens, die hintere 
Kante der rechten Seitenfläche 15 Pixel weiter rechts. Zum Zeichnen 
dieser ausgefüllten Flächen wenden wir einen neuen Befehl an: 

POLYFILL Anzahl,x(),y() OFFSET dx.dy 

malt und füllt eine Fläche, deren Eckpunkte durch die Arrays x() und y() 
gegeben sind. Der erste Punkt hat die Koordinaten (x(0),y(0)), der letzte 
die Koordinaten ( x(Anzahl-l),y(Anzahl-l) ), denn Anzahl gibt an, aus 
wievielen Eckpunkten die Figur besteht. Der erste und letzte Punkt 
werden automatisch verbunden, so daß immer ein geschlossene Fläche 
entsteht. Der optionale Zusatz "OFFSET dx.dy" versetzt die ganze Figur 
um den Betrag dx in x-Richtung und dy in y-Richtung. 

Der Befehl POLYFILL hat noch zwei nahe Verwandte, an die die 
gleichen Parameter übergeben werden müssen: 

polyline: Verbindet in x() und y() stehenden 

Punkte, ohne die entstehende Fläche 
auszufüllen (zeichnet also einen 
Polygonzug). 

polymark: Zeichnet nur die Eckpunkte. 



3.13 Grafik 


417 


Zum Unterprogramm torten (Menüwahl 4): 

Das Tortendiagramm soll ebenfalls einen räumlichen Eindruck vermitteln, 
also wird es nicht kreis-, sondern ellipsenförmig gezeichnet. Außerdem 
erhält die Ellipse vorne eine 20 Pixel dicke Seitenfläche. 

Das Einzeichnen der Tortenstücke fängt beim Winkel Null an 
(bogenanfang=0), also in der drei Uhr Position. In einer FOR-NEXT- 
Schleife werden alle Werte durchgegangen und entsprechend ihrem rela¬ 
tiven Verhältnis zur Gesamtsumme wird der Endwinkel des Ellipsen¬ 
segments (bogenende) bestimmt, das dann mit dem bekannten ELLIPSE- 
Befehl gezeichnet werden kann. Wenn das Tortenstück auf der vorderen 
Hälfte der Torte liegt (bogenende>1800), so muß noch die seitliche 
Grenzlinie zwischen den benachbarten Stücken als senkrechter Strich auf 
der Randfläche gezeichnet werden. Um die Position dieser Linie zu 
berechnen, bedienen wir uns der Funktionen 

SIN(Winkel) und COS(Uinkel) , 

die den Sinus bzw. den Kosinus des angegebenen Winkels zurückgeben. 
Der Winkel ist dabei in Bogenmaß anzugeben (Umrechnung: Bogenmaß = 
Grad/180*PI). Die Konstante PI ist dem Interpreter als 3.14159... bekannt. 

Das eigentlich Aufwendige in diesem Unterprogramm ist die Beschriftung 
der Tortenstücke, da zwischen dem Text und dem Tortenstück noch eine 
kurze Verbindungslinie gezeichnet wird. 

Die Anfangs- und Endkoordinaten dieser Linie werden berechnet und in 
den Variablen xl,yl,x2 und y2 festgehalten. Die Linie soll auf die Mitte 
des Tortenstücks zeigen, also wird mit dem Winkel (bogenanfang+ 
bogenende)/2 gerechnet. Je nachdem, wo der Beschriftungstext steht, muß 
seine Lage zur Linie variieren. Dieser Tatsache wird mit den nach¬ 
folgenden IF-Anweisung Rechnung getragen: Befindet sich der Text auf 
der unteren Hälfte der Torte, wird er um 16 Pixel nach unten verschoben, 
so daß er unterhalb der Linie erscheint. Befindet er sich auf der linken 
Seite, wird er um seine Länge nach links verschoben, so daß er links 
davon steht. 

Am Ende der Schleife wird dann noch mit der Zuweisung "LET 
bogenanfang=bogenende" der neue Anfangswinkel für das nächste Torten¬ 
stück gesetzt. 
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Codierung zu Programm DIAGRAMM: 

REM ====== Programm DIAGRAMM 

PRINT "Darstellung von Linien-, Balken- und Tortendiagramm" 

I 

REM ====== VereinbarungsteiL 

DEFFN y(w)=boden-w/(max-min)*290 !zur Berechnung der Balken- und Punkthöhe 
1 e%: gewählter Menüpunkt 

1 n%: Anzahl der darzustellenden Werte 

1 w(): Werte (in w(0) steht die Summe) 

1 b$(): Bezeichnungen 

1 max: größter positiver Wert 

1 min: kleinster negativer Wert 

1 boden: y-Koordinate der x-Achse bei Linien- und Balkendiagramm 

1 einheit: Gibt an, in welchen Wertabständen Beschriftung der y-Achse erfolgt 

1 abstand: Abstand der Balken bzw. Punkte 

1 bogenanfang,bogenende: Anfangs- und Endwinkel des aktuellen Tortenstücks 
DIM x(3),y(3) !Für den Polyfill-Befehl 
■ 

REM ====== Anweisungsteil 

REPEAT 

PRINT 

PRINT "0 Programmende" 

PRINT "1 Neue Werte eingeben" 

PRINT "2 Liniendiagramm" 

PRINT "3 Balkendiagramm" 

PRINT "4 Tortendiagramm" 

INPUT "Auswahl 0-4: ",e% 

CLS 

IF e%=1 OR n%<>0 THEN 
ON e% GOSUB werte,linien,balken,torten 
ENDIF 

UNTIL e%=0 
EDIT 

i 

PROCEDURE werte 
LOCAL iX 

ERASE b$(),w() {vorherige Dimensionierung löschen 

PRINT 

INPUT "Anzahl der Werte: ",n% 

DIM b$(nX),w(nX) 

LET max=0 
LET min=0 
LET w(0)=0 
FOR i%=1 TO n% 

PRINT i%;". Bezeichnung, ";i%;". Wert: "; 

INPUT "",b$(i%),w(i%) 

LET max=MAX(max,w(i%)) 

LET min=MIN(min,w(i%)) 

LET w(0)=w(0)+w(iX) !Gesamtsumme 

NEXT iX 
CLS 
RETURN 

I 
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PROCEDURE koordkreuz !Koordinatenkreuz zeichnen und beschriften 

LOCAL i 

LET boden=max/(max-min)*290+10 
LINE 40,10,40,300 !y-Achse 

LINE 40,boden,630,boden Ix-Achse 

LET einheit=10“INT(LOG10(max-min)) 

FOR i=min-min MOD einheit TO max-max MOD einheit STEP einheit 
LINE 38,FN y(i),40,FN y(i) 

TEXT 0,FN y(i)+5,0,ROUND(i,5) 

NEXT i 
RETURN 

i 

PROCEDURE Linien 

LOCAL i%,x,y,abstand 
IF n%>1 THEN 
LET abstand=580/(n%-1) 

ELSE 

LET abstand=9999 
ENDIF 

koordkreuz 

DEFFILL ,1 !Füllmodus: vollständig ausfüllen 

DEFLINE 2 !geschrichelte Linie 

DEFTEXT ,0,900 !Textmodus: von unten nach oben schreiben 

LET i%=1 

PLOT 50,FN y(w(1)) 

FOR x=50 TO 630 STEP abstand !Werte durchgehen ... 

LET y=FN y(w(i%)) 

DRAW TO x,y !und bei jedem Verbindungslinie zum letzten 

PCIRCLE x,y,3 !und einen kleinen Kreis zeichnen 

TEXT x+5,390,0,LEFT$(b$(i%),10) 

INC i% 

NEXT x 

DEFLINE 1 !Linien 

DEFTEXT ,0,0 !und Texte wieder normal 

VOID INP(2) 

CLS 

RETURN 

i 

PROCEDURE balken 

LOCAL i%,x,y,abstand,h% 

LET abstand=580/n% 
koordkreuz 
DEFTEXT ,0,900 
LET i%=1 

FOR x=50 TO 630-abstand STEP abstand 
LET y=FN y(w(i%)) 

LET h=MIN(y,boden) !obere Kante des Balkens 

DEFFILL ,2,2 !Füllfarbe: hell punktiert 

PBOX x,y,x+abstand,boden !vordere Seite des Balkens zeichnen 

DEFFILL ,2,4 !Füllfarbe: dunkler punktiert 

LET x(0)=x+abstand 

LET y(0)=y 

LET x(1)=x+abstand+15 
LET y(1)=y-10 
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LET x(2)=x+abstand+15 
LET y(2)=boden-10 
LET x(3)=x+abstand 
LET y(3)=boden 

POLYFILL 4,x(),y() (rechte Seite des Balkens zeichnen 

DEFFILL ,0 (Füllfarbe: Weil 

LET x(0)=x 

LET y(0)=h 

LET x(1)=x+15 

LET y(1)=h-10 

LET x(2)=x+abstand+15 

LET y(2)=h-10 

LET x(3)=x+abstand 

LET y(3)=h 

POLYFILL 4,x(),y() (obere Fläche des Balkens zeichnen 

TEXT x+abstand DIV 2+5,390,0,LEFT$(b$(i%),10) 

INC i% 

NEXT x 

DEFTEXT ,0,0 
VOID INP(2) 

CLS 

RETURN 

I 

PROCEDURE torten 

LOCAL i%,xl,yl,x2,y2,bogenanfang,bogenende 
IF min<0 THEN 

PRINT “Negative Werte vorhanden. Keine Ausgabe möglich!“ 

ELSE 

ELLIPSE 320,220,200,100,1800,3600 !untere Kante der Torte 

DRAW 120,200 TO 120,220 flinke 

DRAU 520,200 TO 520,220 !und rechte Begrenzung 

LET bogenanfang=0 

FOR i%=1 TO n% 

LET bogenende=bogenanfang+3600*w(i%)/w(0) 

DEFFILL ,2,i% MOD 24+1 lalle punktierten Füllmuster durchgehen 
PELLIPSE 320,200,200,100,bogenanfang,bogenende !Tortenstück 
IF bogenende>1800 THEN ITortenstück liegt auf der vorderen Hälfte: 
LET xl=320+200*COS(bogenende/1800*PI) !seit liehe Verbindungskante 

LET yl=200-100*SIN(bogenende/1800*PI) !zum nächsten Tortenstück 
DRAW x1,y1 TO x1,y1+20 »ist sichtbar und mu0 gezeichnet werden 
ENDIF 

LET xl=320+200*1.22*COS((bogenanfang+bogenende)/3600*PI) 

LET yl=200-100*1.22*SIN((bogenanfang+bogenende)/3600*PI) 

LET x2=320+200*1.05*COS((bogenanfang+bogenende)/3600*PI) 

LET y2=200-100*1-05*SIN((bogenanfang+bogenende)/3600*PI) 

DRAW x1,y1 TO x2,y2 IBeschriftungspfeile 

IF x1<320 THEN »Beschriftung linke Hälfte 

LET x1=x1-8*LEN(b$(i%)) .»(ein Zeichen ist 8 Pixel breit) 

ENDIF 

IF y2<y1 THEN !Beschriftung untere Hälfte 

LET y1=y1+16 
ENDIF 

TEXT x1,y1,b$(i%) 

LET bogenanfang=bogenende !neuer Anfangswinkel 
NEXT i% 
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VOID INP(2) 
CLS 
ENDIF 
RETURN 


Ausführung zu Programm DIAGRAMM: 


Liniendiagramm: 
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Balkendiagramm (mit anderen, teils negativen Werten): 



S.-flolst 
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T or tendiagramm: 



am 


Es existieren noch einige recht interessante Grafikbefehle auf dem Atari, 
die Programm DIAGRAMM nicht verwendet hat. Sie sollen an dieser 
Stelle gesondert behandelt werden. 

Mit den Befehlen GET und PUT können bequem (und schnell!) Bild¬ 
schirmausschnitte verschoben werden. Dabei ist allerdings zu beachten, 
daß GET und PUT kein eingestelltes Clipping berücksichtigen. Diese 
beiden Befehle haben die folgende Form: 

GET xl,y1,x2,y2,Ausschnitts 
PUT x,y,Ausschnitts,Modus 

Die Parameter xl,yl,x2 und y2 geben einen rechteckigen Bildschirmaus¬ 
schnitt an, der durch GET in die Stringvariable Ausschnitts gebracht 
wird. Mit PUT kann dieser Ausschnitt an eine beliebige Stelle des Bild¬ 
schirms plaziert werden, der die oberen linken Koordinaten x,y hat. 

Mit dem optionalen Parameter Modus kann eine Vielzahl von Verknüp¬ 
fungsmöglichkeiten zwischen dem Inhalt von Ausschnitts und dem Bild¬ 
schirminhalt an der neuen Position eingestellt werden. Es seien hier nur 
die wichtigsten genannt: 
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Modus Effekt 

3 Der Ausschnitt kommt unverändert auf den Hintergrund. 

4 Alle Hintergrundpunkte werden gelöscht, die im Ausschnitt 
gesetzt sind. 

6 Gesetzte Punkte im Ausschnitt wirken invertierend auf den 
Hintergrund. 

7 Ausschnitt und Hintergrund werden gemischt. 

Die wichtigsten Verknüpfungsmodi beim PUT-Befehl 


Das Programm SCHWEIF demonstriert die Verwendung der GET- und 
PUT-Befehle. SCHWEIF fragt nach dem Namen seines Benutzers und 
druckt ihn in der Bildschirmmitte. Mit der Maus läßt sich der Name über 
den Bildschirm bewegen, wobei er einen Schweif hinter sich her zieht, 
der aus den zuletzt gezeichneten Namen besteht. Diesen Effekt erreicht 
man dadurch, daß man die Positionen der auf dem Bildschirm stehenden 
Schriftzüge in einem Array zwischenspeichert und bei jedem erneuten 
Zeichnen den "ältesten" Eintrag sowohl auf dem Bildschirm als auch im 
Array löscht. 

Dieses Prinzip wurde im Programm durch die Variable i% realisiert, die 
den Index der Position des letzten Namens im Schweif festhält. Bei jedem 
Schleifendurchgang wird der Eintrag an der Position i% gelöscht und der 
neue Eintrag, der aus den aktuellen Mauszeigerkoordinaten besteht, dort 
gespeichert. Dann wird i% um Eins erhöht, wobei durch die Modulo- 
Operation sichergestellt wird, daß i% im Zahlenbereich von 0 bis 9 bleibt. 

Im Programmcode tauchen drei neue Mausbefehle auf: 

HIDEM 

macht den Mauszeiger unsichtbar, 

SHOUM 

bringt ihn wieder zurück. Mit 
SETMOUSE x,y,k 

kann die Maus an die Position x,y gebracht werden und die in k codier¬ 
ten Maustastendrücke simuliert werden (0: keine Taste gedrückt; 1: linke 
Taste; 2: rechte Taste; 3:beide Tasten). Der Parameter k ist optional. 
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Codierung zu Programm SCHWEIF: 

REM ======= Programm SCHWEIF 

PRIMT "Demonstration der GET- und PUT-Befehle" 

I 

REH ====== Vereinbarungsteil 

1 n$: Name 

1 i%: Index-Position des letzten Namens des Schweifs 

DIM x%(9),y%(9) (Koordinaten der letzten 10 gezeichneten Namen 

i 

REH ====== Anweisungsteil 

PRINT 

INPUT "Bitte Vorname eingeben: ",n$ 

CLS 

HIDEH !Hauszeiger ausschalten 

TEXT 320,216,n$ (Namen in der Hitte des Bildschirms ausdrucken 

SETHOUSE 320,200 (und (unsichtbaren) Hauszeiger dorthin bewegen 

GET 320,200,320+8*LEN(n$),216,a$ (zu bewegender Ausschnitt nach a$ bringen 
LET i%=0 
REPEAT 

LET x%=HOUSEX 
LET y%=HOUSEY 

PUT x%(i%),y%(i%),a$,4 (letzte Komponente des Schweifs löschen 

LET x%(i%)=x% 

LET y%(i%)=y% 

LET i%=(i%+1) HOO 10 

PUT x%,y%,a$,7 (neue Komponente zeichnen 

PAUSE 2 

UNTIL HOUSEK=2 
SHOWH 
END 


(Hauszeiger wieder anschalten 
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Ausführung zu Programm SCHWEIF: 


•tart Mart 


* tlfl ttarl 


Marl 

Marl 


Will man den gesamten Bildschirmspeicher schnell Zwischenspeichern, so 
kann man sich der Befehle 

SGET Bildschirms und 

SPUT Bildschirms 

bedienen. SGET liest den gesamten Bildschirminhalt in die String variable 
Bildschirms ein, SPUT schreibt den Inhalt von Bildschirms zurück in den 
Bildschirmspeicher. 


Als letztes wollen wir uns der Turtle-Grafik zuwenden. Zu den Turtle- 
Grafik-Befehlen werden solche Befehle gerechnet, die einen imaginären 
Zeichnenstift, den man sich auch als Schildkröte vorstellen kann, die eine 
Spur hinterläßt (daher der Name), bewegen. 

In GFA-Basic wird dieser Stift mittels eines einzigen Befehls gesteuert: 
DRAU Steueranweisungen 

Dabei ist Steueranweisungen eine Folge von Befehlen, die als String ange¬ 
geben werden, sich auf die Bewegung des Stiftes beziehen und oft noch 
Parameter in Form von durch Kommata abgetrennten numerischen Aus¬ 
drücken benötigen. Falls die Parameter Konstanten sind, können sich auch 
als String angegeben werden. 
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Folgende Steuerbefehle gibt es: 


PD Senke den Zeichenstift. 

PU Hebe den Zeichenstift. 

CO c Nimm einen Zeichenstift der Farbe c. 

FD n Bewege den Stift n Bildpunkte nach vorne. 

BK n Bewege den Stift n Bildpunkte zurück. 

LT w Drehe um den Winkel w nach links (w in Grad). 

RT w Drehe um den Winkel w nach rechts. 

SX s Skaliere die Bewegung in x-Richtung um den Faktor s. 

SY s Skaliere die Bewegung in y-Richtung um den Faktor s. 

Die Skalierung durch SX und SY wirkt sich nur auf FD 
und BK aus. 

MA x,y Bewege den Stift an die Position x,y. 

DA x,y Bewege den Stift gesenkt an die Position x,y 

(d.h, zeichne eine Linie zum Punkt x,y). 

MR x,y Bewege den Stift x Bildpunkte in x-Richtung und y Bild 
punkte in y-Richtung. 

DR x,y Wie MR, nur mit gesenktem Stift. 

TT w Drehe auf den Winkel w (0 Grad ist bei 12 Uhr, Drehsinn 
ist der Uhrzeigersinn). 

Die Steuerbefehle für den DRAW-Befehl im Überblick 


Um den Stift zum Punkt x,y zu bewegen und ihn auf die Winkelposition 
w zu drehen, kann zur Abkürzung auch der Befehl 

SETDRAW x,y,w 


verwendet werden. Außerdem gibt es noch die DRAW-Funktion, um den 
momentanen Zustand des Zeichenstiftes zu ermittlen. 

DRAU(i) 

liefert für i=0 die x-Position, für i=l die y-Position, für i=2 den 
momentanen Winkel, für i=3 die x-Skalierung, für i=4 die y-Skalierung 
und für i=6 einen Wahrheitswert, der angibt, ob der Stift gehoben oder 
gesenkt ist (TRUE: Stift unten, FALSE: Stift oben). 

Im Programm TURTLE wird der DRAW-Befehl angewandt, um den 
sogenannten "Baum des Pythagoras" zu zeichnen (s. Ausführung). Dieser 
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Baum entsteht dadurch, daß man in einem rechtwinkligem Dreieck die 
Seitenquadrate einzeichnet und jedes Kathetenquadrat wieder als Hypo- 
thenusenquadrat eines neuen, kleineren Dreiecks auffaßt usw. Dieses 
Problem läßt sich mit der Turtle-Grafik sehr schön rekursiv lösen. 

Im Programm werden zunächst die Winkel des Dreiecks festgelegt. Die 
Variable wl kann einen beliebigen Wert zwischen 0 und 90 Grad 
annehmen, in der Programmcodierung ist er gerade so groß gewählt, daß 
sich die Seitenvergältnisse 3:4:5 ergeben. Dann wird mit Hilfe der 
Kosinus-Funktion die Faktoren ausgerechnet, um den die linke (sl) bzw. 
rechte (s2) Kathete kleiner ist als die Grundseite. 

Nachdem der Zeichenstift in eine günstige Ausgangslage gebracht worden 
ist, erfolgt der Aufruf des Unterprogramms quadrat mit einer Anfangs¬ 
seitenlänge von 80 Bildpunkten. Die Prozedur quadrat zeichnet ein 
Quadrat der angegebenen Kantenlänge an der momentanen Stiftposition 
und ruft sich dann rekursiv selbst noch zwei Mal auf, um die Katheten¬ 
quadrate zu zeichnen. Vor diesen Aufrufen muß jedoch der Zeichenstift 
in die richtige Position gebracht werden. Anschließend wird er wieder an 
die Ausgangslage zurückbewegt, da sonst die Rekursion nicht korrekt 
funktioniert. 

Die Rekursion bricht ab, wenn die Kantenlänge kleiner oder gleich Zwei 
ist. Probieren Sie aber ruhig mal andere Werte aus ! 


Codierung zu Programm TURTLE: 

REM ====== Programm TURTLE 

PRINT "Programm zum Zeichnen des Baumes des Pythagoras mit Turtle-Grafik" 

i 

REM ====== Vereinbarungsteil 

' wl: linker unterer Winkel des Dreiecks 
1 w2: rechter unterer Winkel des Dreiecks 
' sl: Skalierung der linke Kathete 
1 s2: Skalierung der rechten Kathete 
1 kl: momentane Kantenlänge 

i 

REM ====== Anweisungsteil 

LET wl=53.13010236 
LET w2=90-w1 
LET s1=C0S(w1*P1/180) 

LET s2=C0S(w2*P1/180) 

SETDRAW 250,380,0 
quadrat(80) 

VOID INP(2) 

END 


!Anfangspunkt 

!Anfangskantenlänge: 80 Pixel 
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PROCEDURE quadrat(kl) 

IF kl>2 THEN 

DRAU "PD FD",kl,"RT 90 fd",kl,"RT 90 fd",kl < , 'RT 90 FD“,kl «Quadrat zeichnen 
DRAU "PU RT 90 FD",kl,"LT",w1 

quadrat(kl*s1) !linkes Kathetenquadrat zeichnen 

DRAU »RT 90 FD»,kl*s1 

quadrat(kl*s2) 'rechtes Kathetenquadrat zeichnen 

DRAU M BK n f kl*s1 f ,, LT ,, # 90-w1 f ,, BK ,, f kl !zurück zur Ausgangsposition 
ENDIF 
RETURN 


Ausführung zu Programm TURTLE: 

Progrww zw Zeichnen des Bwwes des Pythegores Mit Turtle-frefik 
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3 Programmierkurs mit GFA-Basic 


3.14 Maschinennahe Programmierung und Tonerzeugung 


Wir haben bisher den Grund-Wortschatz von GFA-Basic kennengelernt 
und können damit eigentlich jedes Programmierproblem lösen. Es gibt je¬ 
doch noch zusätzliche Befehle und Tricks, die helfen, einige Dinge etwas 
eleganter und auch schneller zu programmieren. 

Um diese neuen Befehle verstehen zu können, ist etwas Hintergrund¬ 
wissen erforderlich, was z.B. die Organisation von Variablen oder den 
Speicheraufbau betrifft. 


3.14.1 Variablenorganisation 

3.14.1.1 Der direkte Speicherzugriff 

GFA-Basic unterstützt Byte-, Word-, Integer-, Real-, Boolean- und 
Stringvariablen sowie ein- oder mehrdimensionale Felder aller Vari¬ 
ablentypen. Die Inhalte der Variablen werden in einem bestimmten 
Speicherbereich abgelegt und die Adresse, bei der der Wert nachher zu 
finden ist, wird mit dem Namen der Variablen verbunden. So ist es dem 
Interpreter möglich, zu jeder Variablen, die benutzt wird, den 
zugehörigen Wert sofort bereitzuhalten. Die Zuordnung einer 
Speicheradresse zu einer Variablen kann über die Funktion VARPTR 
abgefragt werden : 

LET adresseX = VARPTR(a%) 

PRINT adresseX 

Mit Hilfe der Funktion VARPTR gibt dieses Beispiel die Adresse aus, an 
der der Wert der Variablen a% abgelegt ist. Eine Adresse bezeichnet einen 
bestimmten Platz im Hauptspeicher und hat immer eine Länge von vier 
Bytes. Sie kann damit einfach in Integer-Variablen gespeichert werden, 
hier wurde adresse% für diesen Zweck benutzt. Man sollte die Namen für 
Variablen, die Adressen enthalten, sprechend wählen, damit keine Ver¬ 
wechslungen auftreten. Die Funktion VARPTR kann auch mit V: abge¬ 
kürzt werden. 

Da a% eine Variable vom Typ Integer ist, belegt sie vier Bytes im Spei¬ 
cher und VARPTR(a%) liefert genau die Adresse, an der das erste Byte 
abgelegt ist. Wollen wir den Wert der Variablen a% aus dem Speicher 
auslesen, so benutzen wir die Funktion PEEK. Sie gibt zu einer angege¬ 
benen Adresse den Wert zurück, der dort gespeichert ist, und zwar genau 
ein Byte. Um alle vier Bytes auszulesen, müssen wir eine Zählerschleife 
laufen lassen: 
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F0R adr%=adresse% TO adresse%+3 
PRINT PEEK(adr%) 

NEXT adr% 

Diese Schleife gibt alle vier Bytes, die den Wert von a% darstellen, aus. 
Aus den vier Werten läßt sich nun der Wert von a% errechnen. Um uns 
diese Rechnung zu ersparen stellt Basic eine Funktion zur Verfügung, die 
den Wert direkt ausrechnet, nämlich LPEEK. 

PRINT LPEEK(adresseX) 

Diese Funktion liest die vier Bytes der Integer-Variablen und errechnet 
den Wert, den sie darstellen. Für das Auslesen von zwei Bytes, also einem 
Wort, wird die Funktion DPEEK verwendet. 

Um nun auch Werte direkt in den Hauptspeicher schreiben zu können, 
gibt es die Befehle POKE, DPOKE und LPOKE, die an einer angegebe¬ 
nen Adresse einen Wert ablegen. Dabei schreibt POKE nur ein Byte, 
DPOKE zwei und LPOKE vier Bytes. 

LPOKE adresseX,17000 

Diese Zeile schreibt den Wert 17000 umgewandelt in vier Bytes in den 
Speicherbereich, an dem der Wert von a% gespeichert ist (siehe Beispiel 
oben). Also haben wir den Wert der Variablen a% geändert, ohne sie 
direkt beim Namen genannt zu haben. Außer PEEK und POKE existieren 
noch weitere Befehle und Funktionen zum direkten Speicherzugriff, die 
Werte in verschiedenen Formaten verarbeiten. Der folgende Befehl 
bewirkt genau dasselbe wie der oben aufgeführte LPOKE-Befehl: 


LONG{adresseX>=17000 


Der Befehl LONG schreibt einen Wert im 4 Byte Integer-Format in den 
Speicher. Die Adresse muß in geschweiften Klammern angegeben werden. 
Es gibt nun für die verschiedenen Datenformate unterschiedliche Funk¬ 
tionen, mit denen man aber prinzipiell genauso umgehen kann wie mit 
LONG. Im folgenden Beispiel wird LONG nicht als Befehl, sondern als 
Funktion benutzt: 

PRINT LONG(adresseX) 

Dieses Beispiel entspricht dem der LPEEK-Funktion von oben. Wie nütz¬ 
lich es sein kann zu wissen, wo die Variablen im Speicher abgelegt sind, 
werden wir im Verlaufe dieses Kapitels noch sehen. Hier noch eine 
Übersicht über alle Befehle und Funktionen zum direkten Speicherzugriff: 
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Ein Byte: 

POKE adr.wert wert=PEEIC(adr) 

SPOKE adr.wert wert*BYTECedr> 

BYTE{adr>=wert 

Zwei Byte Integer ohne Vorzeichen: 

DP0KE adr.wert 
SOPOKE adr.wert 
CARD{adr>=wert 

Zwei Byte Integer mit Vorzeichen: 

INT<adr)=wert wert=INT{edr> 

Vier Byte Integer: 

LPOKE adr.wert 
SLPOKE adr.wert 
L0NG<adr}=wert 
<adr)=wert 

Acht Byte Fließkommazahl im GFA-Basic 3.0 Format: 
FL0AT{adr)=wert wert=FLOAT{adr> 

Vier Byte Fließkommazahl im IEEE Single Format: 

SIHGLE<adr)=wert wert=SINGLE{adr> 

Acht Byte Fließkommazahl im IEEE Double Format: 

DOUBLE(adr>=wert wert=00U8LE(adr) 

String, der mit einem Null-Byte endet: 

CHAR{adr>=string string=CHAR{adr) 

Befehle und Funktionen zum direkten Speicherzugriff. 


wert=LPEEK(adr) 

wert=LONG{adr) 

wert*(adr> 


wert=DPEEK(adr) 

wert=CARD(adr} 


Bestimmte Speicherbereiche sind vor dem Beschreiben durch einen 
POKE-Befehl geschützt, man kann diese Bereiche nur mit SPOKE, 
SDPOKE und SLPOKE beschreiben (Supervisormodus des Prozessors). 
Sonst funktionieren diese Befehle genau wie die bereits beschriebenen 
POKE-Befehle. 

3.14.1.2 Strings und Arrays im Speicher 

Bei Strings und Arrays ist die Organisation etwas komplizierter als bei 
einfachen Datentypen. Da sie unterschiedlich lang sein können, werden 
zusätzliche Informationen wie Länge (bei Strings) oder Dimension (bei 
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Arrays) benötigt. Darum wird für String- und Array-Variablen jeweils 
ein Descriptor-Block angelegt, der diese Informationen enthält. Er ist 
sechs Bytes lang und folgendermaßen auf gebaut: 

Der Descriptor einer Stringvariablen enthält in den ersten vier Bytes die 
Adresse, an der der eigentliche String gespeichert ist. Die restlichen zwei 
Bytes enthalten die Länge des Strings. Der Descriptor kann also getrennt 
von den Stringdaten im Speicher liegen. 

Bei einem Array enthalten die ersten vier Bytes die Adresse der Daten, 
die beiden letzten Bytes geben an, wieviele Dimensionen das Array hat. 
Zusätzlich sind im Datenbereich dann noch Informationen über die An¬ 
zahl der Elemente in jeder Dimension abgelegt. 


Descriptorblock des Strings: 

4 Bytes Adresse des Datenblocks 

2 Bytes Länge des Strings 

Datenblock: 

n Bytes String mit Länge n. 

4 Bytes Backtrailer (Adresse des Desciptorblocks) 

Organisation von Stringvariablen 


Descriptorblock des Arrays: 

4 Bytes Adresse des Datenblocks 

2 Bytes Anzahl der Dimensionen (1-65535) 

Datenblock: 

2 Bytes Anzahl Elemente in der 1. Dimension 


2 Bytes Anzahl Elemente in der letzten Dim. 

Daten pro Element: 

1 Bit Boorsche-Variablen 

1 Byte Byte-Variablen 

2 Bytes Word-Variablen 

4 Bytes Integer-Variablen 

8 Bytes Real-Variablen’ 

6 Bytes String-Variablen (Descriptor) 

Elemente spaltenweise gespeichert (der erste Index läuft zuerst). 


Organisation von Arrays 
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Für einfache Variablen hatten wir die Funktion VARPTR kennengelernt. 
Bei Strings liefert sie die Adresse des Datenblocks. Bei Arrays ist es er¬ 
forderlich, die Indizes des Elementes, dessen Adresse man erfahren 
möchte, mit anzugeben. 

Die Adresse des Descriptorblocks kann man über die Funktion ARRPTR 
erfahren. Sie funktioniert nur für Strings und Arrays, da nur diese Daten¬ 
typen einen Descriptor besitzen. 

PRINT VARPTR(a$) 

PRINT LPEEK(ARRPTR(a$)) 

Die beiden Befehlszeilen geben die gleiche Adresse aus, die erste direkt 
über VARPTR und die zweite durch Auslesen der ersten vier Bytes des 
Descriptorblocks. 

PRINT VARPTR(x%(0,0)) 

PRINT LPEEK(ARRPTR(x%())) 

Auch hier wird in beiden Fällen die gleiche Adresse ausgegeben. An die¬ 
sem Beispiel sieht man auch, daß bei der Funktion ARRPTR im Gegen¬ 
satz zur Funktion VARPTR kein spezielles Element angegeben wird, der 
Descriptorblock gilt ja für das ganze Array. 

Das Programm ARRAYDC zeigt noch einmal, wie ein Array im Speicher 
liegt. Es gibt den Descriptor- sowie den Datenblock des Arrays mit den 
zugehörigen Adressen aus. Gleichzeitig wird in diesem Programm die 
Funktion ARRPTR verwendet, um die Adressen im Speicher zu erfahren. 


Codierung des Programms ARRAYDC: 

REM ====== Programm ARRAYDC 

PRINT "Descriptor-Block eines Integer-Arrays:" 


REM ====== Vereinbarungsteil 

DIM a%(1,2) 

1 desc_adresse%,array_adresse% 
1 dim% 

■ d%(dim%) 

' i% 

i 

REM ====== Anweisungsteil 

i 

FOR j%=0 TO 1 
FOR i%=0 TO 2 
LET a%(j%,i%)=RANDOM(100) 
NEXT i% 

NEXT j% 

i 


! Integer-Array 

Adressen im Hauptspeicher. 

Anzahl Dimensionen 

Anzahl Elemente pro Dimension 

Laufvariable 


! Array mit Zufallswerten vorbelegen. 
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LET desc_adresse%=ARRPTR(a%()) 

LET array_adresse%=LPEEK(desc_adresse%) 
LET dim%=DPEEK(desc_adresse%+4) 

DIM d%(dim%) 


! Adresse des String-Descriptors 
! Adresse der Arraydaten 
! Anzahl Dimensionen 
! Array für Anzahl der Werte pro 
! Dimension 


PRINT 

PRINT "Adresse des Descriptor Blocks : ";desc_adresse% 

PRINT 

PRINT "Speicherstelle","Inhalt" 

PRINT "." # STRING$(41 

PRI NT desc_adresse%;"-";desc_adresse%+3, 

PRINT "Zeiger auf Array-Daten = 4 Bytes : ";array_adresse% 

PRINT desc_adresse%+4;"-";desc_adresse%+5 # 

PRINT "Anzahl der Dimensionen = 2 Bytes : ";dim% 

PRINT 

FOR i%=1 TO dim% ! Anzahl der Elemente für 

LET d%(i%)=LPEEK(array_adresse%) ! jede Dimension einiesen. 

PRINT array_adresse%;"-";array adresse%+1 # 

PRINT d%(i%) 

LET array_adresse%=array_adresse%+4 
NEXT i% 


FOR i%=0 TO d%(1>-1 ! Ausgabe der Arrayelemente 

FOR j%=0 TO d%(2)-1 

PRINT array adresse%;"-";array_adresse%+3 # 

PRINT "a%("7ji%;") = ";LPEEK(array_adresse%) 

LET array_adresse%=array_adresse%+4 
NEXT j% 

NEXT i% 

PRINT 

PRINT "Taste drücken..." 

VOID INP(2) 

END 
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Ausführung zu Programm ARRAYDC: 


Descriptor-Block eines Integer-Arrays: 

Adresse des Descriptor Blocks : 210588 

Speicherstelle Inhalt 

210588-210591 

Zeiger auf Array-Daten * 4 Bytes : 210600 

210592-210593 

Anzahl der Dimensionen * 2 Bytes : 2 

210600-210601 

3 

210604-210605 

2 

210608-210611 

a%(0,0) = 30 

210612-210615 

a%(1,0) = 89 

210616-210619 

a%(0,1) = 49 

210620-210623 

a%(1,1) = 68 

210624-210627 

aX<0,2) = 38 

210628-210631 

a%(1,2) = 12 

Taste drücken.. 

. 


3.14.2 Zeiger 

Im vorliegen Kapitel haben wir gesehen, wie GFA-Basic seine Variablen 
organisiert, und wie man mit VARPTR und ARRPTR feststellt, wo eine 
Variable im Speicher abgelegt ist. Der Name der Funktion VARPTR sagt 
schon, das der Rückgabewert ein Zeiger auf eine Variable ist (VARiable 
PoinTerR). Diesen Zeiger kann man auch noch durch eine andere 
Funktion erhalten, sie wird etwas anders als andere Funktionen 
geschrieben, es wird einfach ein einem Variablennamen vorangestellt. 

LET zeiger%=*a% 

entspricht "LET zeiger%=VARPTR(a%)". Dieses gilt bei den Datentypen 
Integer Real und Boolean, jedoch nicht bei Strings und Arrays. Dort 
liefert die Funktion die Adresse des Descriptors, also den gleichen Wert 
wie die Funktion ARRPTR. Man bezeichnet eine Variable wie zeiger% 
auch als Zeigervariable, weil sie als Wert die Speicheradresse einer 
anderen Variablen hat. Man sagt auch, zeiger% zeigt auf a%. 

Interessant wird das Ganze durch einen Befehl, der es erlaubt, über die 
Zeigervariable eine Zuweisung durchzuführen. 


*zeiger%=1000 
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Der * am Anfang der Zeile ist ein Befehl, darum ist dieses keine 
gewöhnliche Zuweisung und darf nicht mit der beschriebenen Funktion 
verwechselt werden. Da es sich um einen Befehl handelt, darf auch 
kein LET dort stehen, denn es ist immer nur ein Befehl pro Zeile erlaubt. 
Der * sagt dem Interpreter, daß der Inhalt der nachfolgenden Variablen 
als Adresse zu sehen ist, und der Wert 1000 nicht etwa in diese Variable, 
sondern in der Speicherbereich, auf den sie zeigt, zu laden ist. 

Da zeiger% die Adresse enthält, an der a% abgelegt ist, wird durch die 
Anweisung der Variablen a% der Wert 1000 zugewiesen. GFA-Basic stellt 
dabei automatisch fest, um was für einen Variablentyp es sich dabei 
handelt und wandelt in diesem Fall die 1000 in vier Bytes (a% Integer) 
um, bevor sie in den Speicher geschrieben wird. 

Zeiger lassen sich bei allen Variablentypen in dieser Form verwenden, 
auch bei Strings und Arrays. 


Das Programm ZEIGER demonstriert die Zuweisung über einen Zeiger, 
es wird der Wert der Variablen a% über eine Zeigervariable geändert. Die 
Funktion TYPE dient dazu, eine Typbestimmung durchzuführen. Sie hat 
als Argument eine Zeigervariable und liefert den Typ der Variablen, auf 
die gezeigt wird. 


ptr% zeigt auf 

Real-Variable 

String-Variable 

Integer-Variable 

Bool’sche- Variable 

Real-Array 

String-Array 

Integer-Array 

Bool’sches-Array 

Word-Variable 

Byte-Variable 

Word-Array 

Byte-Array 

Fehler 


TYPE(ptr%) liefert 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 
12 
13 
-1 


Rückgabewerte der Funktion TYPE 
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Codierung zu Programm ZEIGER: 


REM ====== Programm ZEIGER 

PRINT "Demonstration von einfachen Zeigern:" 
PRINT 


REM ====== Vereinbarungsteil 

' a% Integer-Variable 

' zeiger% Integer-Variable, dient als Zeiger-Variable 


REM ====== Anweisungsteil 

LET a%=1024 
LET zeiger%=*a% 

i 

PRINT "Zeiger auf a% hat den Wert 
PRINT "entspricht VARPTR(a%) 

PRINT "Wert von a% ist 
PRINT 

i 

*zeiger%=2048 

PRINT »Befehl: *zeiger%=2048» 
PRINT »Wert von a% nun 
PRINT "Typbestimmung ergibt 


! zeiger% zeigt auf a% 

";zeiger% 

";VARPTR(a%) 
";LPEEK(zeiger%)' 


! entspricht LET a%=2048 
: ";a% 

: ";TYPE(zeiger%) 


END 


Ausführung zu Programm Zeiger: 


Demonstration von einfachen Zeigern: 
Zeiger auf aX hat den Wert : 209526 


entspricht VARPTR(aX) : 209526 

Wert von aX ist : 1024 

Befehl: *zeigerX=2048 
Wert von aX nun : 2048 

Typbestirrmung ergibt : 2 


3.14.3 Bit-Operationen 

Die Version 3.0 von GFA-Basic stellt eine Menge von Funktionen bereit, 
die es erlauben, direkt auf einzelne Bits zuzugreifen. Es ist möglich, ein 
Bit zu setzen, zu löschen oder abzufragen. Außerdem können noch 
mehrere Bits gleichzeitig verschoben werden. 

Ein Bit eines Ausdrucks kann durch die Funktion BSET gesetzt werden. 
Dabei müssen als Argumente der Ausdruck und die Bitposition angegeben 
werden. Die Zählung beginnt bei der ganz rechten Dualstelle. Das nieder¬ 
wertigste Bit hat also die Position 0. Die folgenden Beispiele bedienen 
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sich der BIN$-Funktion, die die Dualdarstellung einer Zahl als String er¬ 
gibt. Das erste Argument muß ein Integer-Ausdruck sein und wird umge¬ 
wandelt, das zweite Argument gibt an wieviele Stellen der Rückgabestring 
haben soll. Erwähnt seien noch die Funktionen OCT$ und HEX$, die den 
angegebenen Ausdruck in seine oktale bzw. hexadezimale Darstellung 
umwandeln und als String zurückgeben. 

Mit Hilfe der BIN$-Funktion wird in den folgenden Beispielen gezeigt, 
welche Wirkung die Bit-Operationen haben: 

LET a|=BSET(5,1) 

PRINT BIN$(a|,8) 

Das Beispiel setzt im Wert 5 das Bit an der Position 1 und weist ihn der 
Variablen a| zu. Der Wert von a| wird dann in Binärdarstellung 
ausgegeben. Hier noch einmal in einer Übersicht, was auf Bitebene 
geschehen ist: 

5 ln = 00000101- 

1U - Position 1 wird gesetzt durch BSET(5,1) 

oooooill 2 Neuer Wert ist nun Dezimal 7. 

Die tiefgestellten Werte geben jeweils die Basis an bezüglich der die Zahl 
dargestellt ist, eine 2 bedeutet z.B. Basis 2 also das Dualsystem. 

Die Funktion BCLR wird genauso benutzt, sie löscht ein Bit in einem 
numerischen Ausdruck. Mit BCHG kann ein Bit geändert werden, d.h. ist 
es 1, so wird es zu 0 und umgekehrt. Die letzte Funktion dieser Gruppe 
ist BTST. Mit ihr kann geprüft werden, ob ein Bit gesetzt ist, sie hat als 
Rückgabewert einen Wahrheitswert: 


PRINT BTST(5,0) 


Das Beipiel gibt -1 (TRUE) aus, da das Bit in der Position 0 gesetzt ist. 
Hier noch eine Übersicht über die bis jetzt besprochenen Bit- 
Operationen: 


BSET(Ausdruck,Bitposition > 
8CIR(Ausdruck,Bitposition) 
BCHG(Ausdruck,Bitposition) 
BTST(Ausdruck,Bitposition) 


Setzen eines Bits. 
Löschen eines Bits. 
Invertieren eines Bits. 
Testen eines Bits. 


Einfache Bit-Operationen 
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Eine weitere Gruppe von Funktionen zur Bearbeitung eines Wertes auf 
Bitebene sind die Schiebe- und Rotierfunktionen. Mit ihnen kann ein 
Wert bitweise nach rechts oder links geschoben oder rotiert werden: 

LET a|=SHL|(5,3) 

PRINT BIN$(a|,8) 

Die Funktion SHL schiebt die Bits des numerischen Ausdruckes nach 
links, in diesem Fall um drei Stellen. Es muß zusätzlich ein Typzeichen 
mit angegeben werden, damit festgelegt ist, wieviele Bits geschoben 
werden sollen. Hier noch einmal genauer was passiert: 

5 10 = 00000101- 

u |—- 1 y Um 3 Stellen nach links schieben. 

00101000 2 Neuer Wert ist Dezimal 40. 

Wie wir sehen können, sind alle Bits um drei Stellen nach links gerückt 
worden. Bei einem Schiebebefehl werden die Stellen ganz links 
herausgeschoben, sie verschwinden, dafür tauchen rechts neue Stellen mit 
dem Wert 0 wieder auf. Bei einer Rotierfunktion hingegegen werden die 
Bits links heraus und rechts wieder hereingeschoben, es gehen keine 
Stellen verloren. Für das Schieben und Rotieren nach rechts gilt dasselbe. 
Hier ein Beispiel für eine Rotation rechts herum: 

LET a|=ROR|<5,2) 

PRINT BIN$(a|,8) 

Es werden alle Bits um zwei Stellen nach recht rotiert: 


5 


10 


= 00000101 


2 


01000001 2 


Neuer Wert ist Dezimal 65 Dezimal 


Bevor wir uns einem Beispielprogramm zuwenden, noch eine Übersicht 
über alle Schiebe- und Rotierfunktionen: 
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Anzahl Stellen: 

32 Bits 

16 Bits 

8 Bits 

Schieben 

nach links 

SHL 

SHL& 

SHL| 

nach rechts 

SHR 

SHR& 

SHR| 

Rotieren 

nach links 

ROL 

ROL& 

ROL| 

nach rechts 

ROR 

ROR& 

ROR| 


Schiebe- und Rotierfunktionen 


Das folgende Beispielprogramm soll noch einmal die Funktionsweise von 
verschiedenen Bit-Operationen verdeutlichen. Es werden zwei Variablen 
benutzt, die jeweils 16 Bit lang sind (Typzeichen &). Diesen Variablen 
wird zunächst der Wert 101 zugewiesen, a& in herkömmlicher Weise und 
b&, indem die Bits einzeln mit der BSET-Funktion gesetzt werden. 

In der darauf folgenden Zählerschleife wird der Wert von a& jeweils um 
ein Bit nach links geschoben und b& um eine Stelle nach links rotiert. 

Das Ausführungsbeispiel zu BIT zeigt, daß die Bits in der Variablen a& 
links verschwinden, während sie bei b& rechts wieder auftauchen. 
Zusätzlich wird das Bit an der Position 0 in b& mit der BCHG-Funktion 
invertiert, sodaß nach Ablauf der Schleife der gesamte Wert invertiert 
worden ist. 

Die einzelnen Werte, die b& annimmt, werden auch noch in einem String 
f$ zusammengepackt, so daß f$ nach Ende der Schleife eine gültige 
Füllmusterdefinition enthält. Dieses Füllmuster wird dann noch mit einem 
einfachen PBOX-Befehl auf den Bildschirm gebracht. 

REM ====== Programm BIT 

PRINT "Demonstration von Bit-Operationen:" 

PRINT 

REM ====== Vereinbarungsteil 

1 a& f b& Integer-Variable 16 Bits lang 

REM ====== Anweisungsteil 

LET a&=101 

LET b&=0 

LET b&=BSET(b&,0> 

LET b&=BSET(b&,2) 

LET b&=BSET(b&,5) 

LET b&=BSET(b&,6) 

1 Hier haben a& und b& den gleichen Wert 


! Bits 0 # 2 # 5 # 6 in b& setzen 
! Ergibt 1+4+32+64 = 101 


PRINT BIN$(a&,16),BIN$(b&,16) 
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FOR i%=1 TO 16 
f$=f$+MKI$(b&) 

LET a&=SHL&(a&,1) ! Bits in a& nach links schieben 

LET b&=ROL&(b&,1) ! Bits in b& nach links rotieren 

LET b&=BCHG(b&,0) ! Bit 0 in b& invertieren 

PRINT BIN$(a&,16),BIN$(b&,16) 

NEXT i% 

i 

DEFFILL 1 # f$ 

PBOX 50,320,330,380 

i 

END 


Ausführung zu Programm BIT: 


Dmons trat len von Bit-Operationen: 


0806689081188181 

6086668011681810 
8086688118818180 
8088881188181868 
8888811881818888 
8888118818188688 
8881188101888880 
8011881818008886 
8118618100008888 
1180181088888888 
1801018888008808 
Ofll 01 000000011000 

BOlOlODOUvvUuuul 

0161868000000088 
1818888808888888 
8188888888808088 
1088888888800800 
OOOQOOOOOOO00000 

QOQuOuOOnuuOQOuO 


8888888881188181 

8088888811861811 

8088880110816111 

0880881180181111 

8888011881811111 

8808110810111111 

B0011B81O1111111 

8011801011111111 

8110018111111111 

1180181111111111 

1881011111111110 

8810111111111108 

0101111111111881 

1811111111118811 

8111111111108118 

1111111111881101 

1111111118811010 


Hgssas 


3.14.4 Schnelles Bewegen von Speicherbereichen 

In vielen Anwendungen kommt es vor, daß größere Mengen von Daten 
einfach nur umgeladen, kopiert oder verschoben werden müssen. Meistens 
sind es Arrays, die diese Daten enthalten. Die konventionelle Methode, 
diese Aufgaben zu lösen, ist, eine oder mehrere Zählerschleifen mit einer 
eingelagerten Zuweisung zu konstruieren. 

FOR i%=1 TO 40000 
LET t%(i%)=s%(1%) 

NEXT i% 
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Diese Zählerschleife kopiert den Inhalt des Arrays s%() in das Array t%(). 
Sie benötigt nicht unerheblich viel Zeit, was recht störend ist. Zum Glück 
gibt es in GFA-Basic aber einen Befehl, der solche Aufgaben in einem 
Bruchteil der Zeit erledigt. Mit BMOVE können beliebige Hauptspeicher¬ 
bereiche schnell kopiert werden. Man muß dazu die Anfangsadressen der 
Speicherbereiche, zwischen denen kopiert werden soll, und die Länge des 
zu kopierenden Bereiches angeben. 

Um z.B. ein Array zu kopieren, kann man diese Adressen durch die 
bereits beschriebenen Funktionen ARRPTR und VARPTR erhalten. Die 
Länge ergibt sich aus der Anzahl der zu kopierenden Elemente und dem 
Typ der Arrayelemente. Für unser Beispiel der Zählerschleife von oben 
müßte der entsprechende BMOVE-Befehl so lauten: 

BMOVE VARPTR < s%(0)),VARPTR(t%(0)>,40001*4 

Die Adressen der Arrays hätten auch mit der ARRPTR-Funktion 
ermittelt werden können. Die Länge des zu kopierenden Bereiches ergibt 
sich aus 40001 Elementen, da das Array mit dem Index 0 beginnt, mal 4 
Bytes pro Element, da sie vom Typ Integer sind. 

Der BMOVE-Befehl ist wesentlich schneller als die Zählerschleife, man 
muß nur mit den Werten, die man angibt, vorsichtig sein, denn es wird 
nicht geprüft, ob die Grenzen der Arrays überschritten werden, oder was 
für einen Typ die Arrayelemente haben. 

Das folgende Programm zeigt noch einmal anschaulich, wie groß der 
Geschwindigkeitsunterschied zwischen beiden Methoden ist. Es wird 
zunächst ein Bildschirm mit einer Graphik erzeugt. Dann wird der 
Bildschirm mit einer Zählerschleife direkt ausgelesen (LPEEK), gelöscht 
und aus den zwischengespeicherten Werten wieder aufgebaut. Dabei wird 
die benötigte Zeit mit Hilfe der TIMER-Funktion gemessen und dann 
ausgegeben. Anschließend wird die gleiche Aufgabe mit dem BMOVE- 
Befehl durchgeführt. Vergleichen Sie die beiden Zeiten ! 

Ausführung zu Programm QUICKMEM: 


Schnelles Verschieben von Hauptspeicherbereichen: 


Ausführungszeit der konventionellen Schleife : 10.165 Sekunden. 
Taste drücken ... 

Ausführungszeit der Verschiebung mit BMOVE : 0.095 Sekunden. 
Taste drücken ... 
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Codierung zu Programm QUICKMEM: 

REM ====== Programm QUICKMEM 

■ 

REM ====== Vereinbarungsteil 

DIM z%(8000) 

• i% 

1 langsam, schnell,zeit 

• b% 

■ 

REM ====== Anweisungsteil 

■ 

LET bX=XBI0S(3) 

I 

grafik 
■ 

PRINT "Schnelles Verschieben von Hauptspeicherbereichen: 11 
PRINT 
■ 

LET zeit-TIMER ! Zeitmessung 

FOR iX=0 TO 8000 I Bildschirm in z%() speichern 

LET zX(iX)=LPEEK(bX+iX*4) 

NEXT iX 

CLS ■ Bildschirm löschen 

FOR iX=0 TO 8000 ! Bildschirm wieder aufbauen 

LPOKE (bX+iX*4),zX(iX) 

NEXT iX 

LET langsam=(TIHER-zeit)/200 

PRINT "Ausführungszeit der konventionellen Schleife : "/langsam;" Sekunden." 
PRINT "Taste drücken ..." 

VOID INP(2) 

I 

LET zeit=TIMER ! Zeitmessung 

BMOVE b%,VARPTR(z%(0)),32000 

CLS 

BMOVE VARPTR(z%(0)),b%,32000 
LET schneil=(TIMER-zeit)/200 

PRINT "Ausführungszeit der Verschiebung mit BMOVE : ";schnel1;" Sekunden. " 
PRINT "Taste drücken ..." 

VOID INP(2) 

■ 

END 

i 

PROCEDURE grafik ! Grafik aufbauen 

LOCAL x%,y% 

CLS 

FOR x%=0 TO 619 STEP 20 ! Bildschirm mit Kästen füllen 

FOR y%=19 TO 400 STEP 20 
LET w=RANDOM(x% DIV 10) 

SETDRAW x%,y%,0 

DRAW "LT",w,"fd 20 rt 90 fd 20 rt 90 fd 20 rt 90 fd 20" 

NEXT y% 

NEXT x% 

RETURN 


! Ermitteln der Adresse 
! des Bildschirmspeichers 
! Schöne Grafik malen 


! Array zum Zwischenspeichern 
Laufvariable 

Variablen zur Zeitmessung 
Adresse des Bildschirmspeichers 
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3.14.5 Schneller Diskettenzugriff 

Die Methode des schnellen Diskettenzugriffs hat den gleichen Hinter¬ 
grund wie die des schnellen Verschiebens von Speicherbereichen. Man 
umgeht Strukturen wie Schleifen, die langsam ablaufen, indem man die zu 
speichernden Daten direkt ausliest und als einen Block verarbeitet. 
Befinden sich unsere Daten in einem Array d%(5000), so müßte 
normalerweise zum Abspeichern des Arrays eine Zählerschleife 
konstruiert werden: 

OPEM "0»,#1,»DATEI.DAT 11 
FOR »X=0 TO 5000 
PRINT #1,d(i%) 

NEXT i% 

CLOSE #1 

Diese Schleife hat eine relativ lange Ausführungszeit, weil beim Schreiben 
in die sequentielle Datei ein hoher Aufwand erforderlich ist die Daten zu 
organisieren. Es wird außerdem jeder der 5000 Sätze einzeln geschrieben. 

Mit dem Befehl BSAVE können beliebige Bereiche des Hauptspeichers als 
eine Datei auf die Diskette geschrieben werden. Diese Datei ist nicht in 
Sätze unterteilt. Sie muß nicht extra geöffnet werden, der Dateiname wird 
im Befehl direkt mit angegeben. Außerdem muß die Anfangsadresse und 
die Länge des zu speichernden Bereiches bekannt sein. Für das Beispiel 
von oben lautet der entsprechende BSAVE-Befehl: 

BSAVE "DATEI.DAT»,VARPTR<d(0)),5001*8 

Er speichert die 5001 Elemente des Arrays d() als Datei ab. Zusätzlich 
wird noch die Anfangsadresse des Speicherbereiches automatisch mit auf 
die Datei geschrieben. Die so gespeicherte Datei kann nur mit den 
Befehlen BLOAD bzw. BGET wieder geladen werden. 

BLOAD "DATEI.DAT»,VARPTR(e(0)> 

Die angegebene Adresse ist bei BLOAD optional, wird sie nicht 
angegeben, so wird der Datenblock an die durch den BSAVE-Befehl mit 
abgespeicherte Adresse geladen. Das Beispiel füllt das Array e() mit den 
Werten aus der Datei. 

Mit den Befehlen BLOAD und BSAVE kann allerdings immer nur die 
gesamte Datei auf einmal geladen oder gespeichert werden. Will man nur 
Teile der Datei lesen, oder stückweise schreiben, so bedient man sich der 
Befehle BPUT und BGET. 
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Hier muß die Datei vor dem Zugriff wieder mit einem OPEN-Befehl 
geöffnet werden. 

OPEN "I",#1,"DATEI.DAT" 

BGET #1,VARPTR(a(0)),100*8 
CLOSE #1 

Dieses Beispiel liest die ersten 800 Bytes der Datei DATEI.DAT in das 
Array a() ein. Um die Datei nicht nur starr von vorne nach hinten lesen 
zu können, gibt es die Befehle SEEK und RELSEEK zum Positionieren 
des Dateizeigers in der Datei. Der Befehl SEEK setzt den Dateizeiger 
absolut, d.h. auf ein bestimmtes Byte innerhalb der Datei. Mit RELSEEK 
kann der Zeiger relativ zum augenblicklichen Standpunkt vor- oder 
zurückgeschoben werden. 

OPEN "I",#1,"DATEI.DAT" 

SEEK #1,8*100 

GET #1,VARPTR(a(0)),8*50 

RELSEEK #1,8*100 

GET #1,VARPTR(a(50)),8*10 

CLOSE #1 

Das Beispiel positioniert zunächst den Dateizeiger auf das 800. Byte der 
Datei, liest dann 400 Bytes ein, verschiebt den Dateizeiger um 800 Bytes 
zum Ende der Datei und liest weitere 80 Bytes ein. 


BSAVE "Dateiname",Adresse,Länge 

BLQAD "Dateiname",[Adresse] 

BGET Kanalnummer,Adresse,Länge 

BPUT Kanalnummer,Adresse,Länge 

SEEK Kana Inummer, Abs. Byteadresse 
RELSEEK Kanalnummer,Rel. Byteadresse 


Speichern einer Datei mit dem 
angegebenen Dateinamen. Kein OPEN 
erforderlich. 

Laden einer Datei, die mit BSAVE 
abgespeichert worden ist. 

Laden eines Datenblocks einer Datei 
ab Dateizeiger in angegebener Länge. 
Speichern eines Datenblocks in eine 
Datei ab Dateizeiger. 

Dateizeiger absolut positionieren. 
Dateizeiger relativ zur aktuellen 
Position verschieben. 


Dateibefehle mit direktem Speicherzugriff 


Der Vorteil der Speicherung mit BSAVE/BPUT und des Ladens mit 
BLOAD/BGET liegt vor allem in der Geschwindigkeit. Wie bei den 
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Befehlen zur Speicherverschiebung wird auch bei diesen Befehlen 
keinerlei Prüfung der angegebenen Parameter durchgeführt, man sollte 
also vorsichtig sein. 

Das Programm QUICKDSK demonstriert wie leistungsfähig die Befehle 
sind indem es den Bildschirmspeicher als Datei speichert, und ihn mit 
BGET stückweise wieder einlädt. Die Geschwindigkeit mit der das 
durchgeführt wird ist beachtlich. 


Codierung zu Programm QUICKDSK: 


REM ====== Programm QUICKDSK 

I 

REM ====== Vereinbarungsteil 

1 b% Zeiger auf BiLdschirmram 

i 

REM ====== Anweisungsteil 

LET b%=XBI0S(3) ! Ermitteln der Adresse des Bildschirmram 

grafik ! Schöne Grafik malen 


PRINT "Schnelles Speichern und Laden von der Diskette." 

PRINT 

BSAVE »BILD.DAT»,b%,32000 ! Speichert das Bild als Datei 

CLS 

i 

PRINT "Bildschirmspeicher in BILD.DAT gespeichert." 

PRINT "Drücken Sie eine Taste, um die Datei wieder zu laden..." 

VOID INP(2) 

BLOAD "BILD.DAT",b% ! Lädt die Datei in den Bildschirmram 

i 

PRINT "Drücken Sie eine Taste, um die Datei stückweise zu laden..." 

VOID INP(2) 

CLS 

OPEN "I",#1,"BILD.DAT" ! Lädt die obere und untere Hälfte 

BGET #1,b%+16000,16000 ! des Bildes vertauscht. 

BGET #1,b%,16000 

CLOSE #1 

END 

PROCEDURE grafik 
LOCAL iX 

FOR i%=0 TO 360 STEP 2 ! Malt Quadrate um einen Mittelpunkt gedreht 

SETDRAU 320,200,0 

DRAW "LT",i%,»fd 199 rt 90 fd 199 rt 90 fd 199 rt 90 fd 199» 

NEXT i% 

RETURN 


Die aufgebaute Bildschirmgrafik wird zunächst mit einem BSAVE-Befehl 
abgespeichert. Danach wird der Bildschirm gelöscht und die Datei mit 
BLOAD wieder geladen. Zur Demonstration des BGET-Befehls wird 









448 


3 Programmierkurs mit GFA-Basic 


danach erst die zweite Hälfte der Datei geladen, und zwar oben in den 
Bildschirm. Die erste Hälte der Datei wird in den unteren Teil des 
Schirmes gebracht. 



3.14.6 Betriebssystemaufrufe 

Das Betriebssystem eines Rechners ist normalerweise in mehrere Schichten 
aufgeteilt, die aufeinander aufbauen. Es gibt nur eine hardwareabhängige 
Schicht, auf die dann alle anderen Schichten zurückgreifen. Beim Atari 
gibt es auch so ein Schichtenmodell, daß im folgenden grob dargestellt ist: 



Den Kern des Betriebssystems des Atari bilden das BIOS (Basic Input- 
Output System) und das XBIOS (Extended BIOS). Sie enthalten alle 
Routinen, die die Hardware, wie Tastatur, Diskettenlaufwerke, serielle 
Schnittstelle, parallele Schnittstelle und Bildschirm direkt ansprechen. Auf 
diese Programme bauen die anderen Ebenen des Betriebssystems auf. Das 
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GEMDOS spricht die Hardware also nicht direkt an, sondern nutzt die 
durch BIOS und XBIOS bereitgestellten Routinen. So muß bei einer 
Änderung der Hardware nur an einer Stelle im BIOS oder XBIOS 
geändert werden, das Betriebssystem wird so nur minimal hardware¬ 
abhängig. 

Das GEMDOS (GEM Disk Operating System) hat Aufgaben, die eine 
Ebene höher liegen, z.B. Ausgabe eines Zeichens an eine Ausgabeeinheit, 
Verwaltung des Speichers und die gesamte Dateiverwaltung mit der Pflege 
der Verzeichnisse u.s.w. 

GEM (Graphics Environment Manager) bezeichnet die gesamte Software, 
die zum Betrieb der grafischen Benutzeroberfläche nötig ist. Es ist 
aufgeteilt in das AES (Application Environment System) und das VDI 
(Virtual Device Interface). 

Wir wollen hier nur auf einfache Betriebssystemaufrufe eingehen, um das 
Prinzip zu erklären. GFA-Basic bietet mehrere Befehle an, um die 
Betriebssystemroutinen direkt aufrufen zu können. Den Aufruf des 
XBIOS haben wir in einigen Beispielprogrammen schon kennengelernt. 
Dort wurde die Adresse des Bildschirmspeichers, der ja nicht immer an 
der selben Stelle im Speicher liegt, durch den Aufruf 

LET b%=XBI0S(3) 

festgestellt. Eine weitere Routine, die sehr nützlich sein kann, ist 
LET a%=XBI0S(4) 

Sie liefert einen Wert für die gerade eingestellte Bildschirmauflösung (s. 
Abschnitt 3.13.2). 

Um eine Betriebssystemroutine aufzurufen, muß man wissen, ob es sich 
um eine BIOS, XBIOS oder GEMDOS-Routine handelt und welche 
Funktionsnummer die Routine hat. Bei einigen Routinen können 
zusätzlich noch Parameter angegeben werden. 


BIOS (Funktion [, Parametern ste]) 
XBIOS (Funktion [.Parameterliste]) 
GEHOOS (Funktion [.Parameterliste]) 
GEHSYS (Funktion) 

VDISYS (Funktion) 


Aufruf des BIOS. 

Aufruf des XBIOS. 

Aufruf des GEMDOS/TOS. 
Aufruf des AES. 

Aufruf des VDI. 


Betriebssystem- und GEM-Aufrufe 
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GFA-Basic bietet in der Version 3.0 einen vollständigen Befehlssatz, um 
AES-Bibliotheken aufzurufen. Für die Beschreibung der einzelnen 
Funktionen des Betriebssystems möchten wir jedoch auf weiterführende 
Literatur verweisen. 


3.14.7 Tonerzeugung 

Der Atari bietet die Möglichkeit, über 3 Tongeneratoren Geräusche und 
Töne zu erzeugen. Jeder dieser 3 Generatoren erzeugt eine Grund¬ 
schwingung, zu der noch jeweils ein Rauschen hinzugeschaltet werden 
kann. Um verschiede Klangfarben erzeugen zu können, wird diese 
Grundschwingung bei Bedarf durch einen Hüllkurvengenerator geleitet. 
Unter einer Hüllkurve versteht man das sich ändernde Lautstärke¬ 
verhalten eines Klanges, vom Zeitpunkt des Anklingens bis zum 
Ausklingen. Ein Ton kann z.B. langsam einschwingen, bis er die maximale 
Lautstärke erreicht hat und dann plötzlich aufhören, oder schnell laut 
werden und langsam ausschwingen. 

Zum Spielen von Tönen wird in GFA-Basic der Befehl SOUND benutzt. 

SOUND Stimme,Lautstärke,Note,OktaveC,Verzögerung) 

'- Wartezeit in 1/50 s. 

' - Oktave der Note (1..8). 

- Notennummer 

(1=C,2=#C,..., 12=H). 

-Lautstärke (0..15). 

-Stimme (1..3) 

SOUND Stimme,Lautstärke,#Periode[,Verzögerung] 

I--— Wartezeit in 1/50 s. 

i-Periodenlänge. 

-Lautstärke (0..15). 

-Stimme (1..3). 


Formate des SOUND Befehls 

Man kann einen Ton zum einen durch Angabe der Notennummer und der 
Oktave und zum anderen durch Angabe der Periode spielen. Die Periode 
kann aus der Frequenz des zu spielenden Tones errechnet werden. Es gilt: 
Periode=ROUND( 125000/Frequenz). Durch Angabe der Periode kann also 
der Ton auch jede Frequenz zwischen den Tönen der Tonleiter annehmen. 
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Der Parameter Verzögerung dient dazu, die weitere Programmausführung 
eine bestimmte Zeit anzuhalten. Erst nach Ablauf dieser Zeit wird das 
Programm fortgeführt. 

Zum Ändern der Klangfarbe der Töne wird der Befehl WAVE benutzt. 
Mit ihm kann die Hüllkurve sowie für jede Stimme ein Rauschgenerator 
eingestellt werden. 

WAVE Stimme,Hü11kurve,Hü11kurvenform,Hüllkurvendauer,Verzögerung 
Dabei errechnet man Stimme als Summe aus verschiedenen Werten: 

- 1 : Einschalten der Stimme 1 

- 2 : Einschalten der Stimme 2 

- 4 : Einschalten der Stimme 3 

- 8 : Einschalten des Rauschgenerators für Stimme 1 

- 16 : Einschalten des Rauschgenerators für Stimme 2 

- 32 : Einschalten des Rauschgenerators für Stimme 3 

- 256*Periode des Rauschgenerators (0..31) 

Will man die Stimme 1 und 3 sowie den Rauschgenerator für Stimme 3 
mit Periode 12 einschalten, ergibt sich für den Parameter Stimme: 

1 + 4 + 32 + 256*12 = 3109. 

Der Wert für Hüllkurve gibt an, welche der drei Stimmen durch die Hüll¬ 
kurve bearbeitet werden soll. Wie bei Stimme ergibt sich dieses Zahl als 
Summe aus: 

- 1 : Stimme 1 mit Hüllkurve unterlegen. 

- 2 : Stimme 2 mit Hüllkurve unterlegen. 

- 4 : Stimme 3 mit Hüllkurve unterlegen. 

Es ergeben sich also Werte von 0 bis 7 für den Parameter Hüllkurve. 

Eine wichtige Einstellungsmöglichkeit bietet Hüllkurvenform. Mit diesem 
Parameter kann eine von 15 möglichen Hüllkurvenformen gewählt 
werden. Einige der Hüllkurven wiederholen sich fortlaufend, andere 
brechen nach einem Durchlauf ab. Im der folgenden Tabelle ist der 
Hüllkurvenverlauf grafisch dargestellt. 
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Mit der Hüllkurvendauer wird bestimmt, wie lang ein Durchlauf der 
Hüllkurve dauern soll. Dieser Parameter kann Werte von 0 bis 65535 
annehmen, wobei ein großer Wert für eine lange Hüllkuvendauer steht. 
Welche Werte hier zu wählen sind, hängt zum einen von der gewählten 
Hüllkurvenform und zum anderen vom gewünschten Effekt ab. Ein Wert 
von 20000 entspricht etwa 2.7 Sekunden. Wählt man die Dauer sehr kurz, 
so kommen manchmal recht interessante Klänge zustande. 

Verzögerung gibt auch hier an, wie lange gewartet werden soll, bis mit 
der Programmausführung fortgefahren wird. 


Insgesamt sind die Möglichkeiten der Tonerzeugung auf dem Atari eher 
bescheiden, vor allem die geringen Einstellungsmöglichkeiten der Hüll¬ 
kurve schränken den "Musiker" doch ein. 

An dieser Stelle soll noch ein kleines Programm zum Experimentieren mit 
den Parametern vorgestellt werden. Das hier abgedruckte Programm ist 
eine etwas abgemagerte Version des Programms, das auf der Diskette 
geliefert wird. Es ermöglicht das Einstellen der Parameter mit den 
Funktionstasten. Die Tastatur ist dabei wie eine Klaviatur zu spielen, 
allerdings nur mit zwei Oktaven. 
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Codierung zu Programm PIANO: 


REM ====== Programm PIANO 

i 

REM ====== Vereinbarungsteil 


OIM n%(255) 

DIM o%(255) 

DIM min%(10) 

DIM max%(10) 

DIM zl%(10) 

DIM w%(10) 

DIM zs%(10) 

I 

REM ====== Anweisungsteil 


! Array für die Notenwerte. 

! Array für die Oktavwerte. 

! Minimalwerte der Parameter 
! Maximalwerte der Parameter 
! Zeile für die Bildschirmausgabe 
! Parameterwerte 
! Schrittwert für Parameter 


noten: 

DATA 9,49,113,50,119,101,52,114,53,116,54,122,255,117 
DATA 56,105,57,111,112,158,129,39,43,35,13,255,127,0 
Parameter: 

DATA 0,15,15,1,0,31,16,1,0,65535,17,100,0,1,18,1 

i 


LET okt%=4 
LET not%=1 
REPEAT 
READ a% 

IF a%=255 THEN 
INC okt% 

LET not%=1 
ELSE 

LET n%(a%)=not% 
LET o%(a%)=okt% 
INC not% 

ENDIF 

UNTIL a%=0 

i 

RESTORE Parameter 
FOR i%=1 TO 4 
READ min%(i%) 

READ maxX(iX) 

READ zlX(iX) 

READ zsX(i%> 

NEXT i% 


) Einlesen der Notenwerte 
! und Oktavwerte 


l Werte für die Parameter 
! einiesen 


LET stimmX=1 
LET w%<3)=10000 
bi Id 

VOID XBIOS(35,30,5) 

SPOKE &H484,PEEK(&H484) AND NOT 1 

I 

REPEAT 

LET a%=INP(2) 

IF n%(a%)>0 THEN 


! Stimme 1 für die Tonausgabe 
! Hüllkurvendauer initialisieren 
! Bildschirm aufbauen 
! Autorepeat einstellen 
! Tastaturclick abstellen 


! Tastaturabfrage 
! Handelt es sich um eine Note? 
! Note spielen 
,w%<3) 

! Taste für Parameteränderung? 

! Umrechnen des Tastencodes 

! Gerade Tasten zählen herunter 
! Parameter erhöhen 


SOUND 1,15,n%(a%),o%(a%),0 
WAVE stimm%+w%(4)*stimm%*8+256*w%(4),1,w%(1) 
ELSE 

IF a%>186 AND a%<195 THEN 
LET a%=a%-186 
LET i%=(a%+1) DIV 2 
IF EVEN(a%) AND w%(i%)<max%(i%) THEN 
LET w%(i%)=w%(i%)+zs%(i%) 

ENDIF 
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IF ODD(a%) AND w%<i%)>min%<i%) THEN ! Ung. Tasten zählen herauf 

LET w%(i%)=w%(i%)-zs%(i%) ! Parameter erniedrigen 

ENDIF 

PRINT AT(25,zl%(i%));w%(i%);" " ! Neuen Wert ausgeben. 

ENDIF 

ENDIF 

UNTIL a%=32 

SPOKE &H484,PEEK(&H484) OR 3 ! Tastaturclick einschalten 

WAVE 0,0 

END 


PROCEDURE bi Id 
CLS 

PRINT "Demonstration zur Tonerzeugung 
PRINT 

PRINT »12 456 

PRINT 

PRINT » TAB Q W E R T 
PRINT AT(1,15); 

PRINT "Hüllkurvenform : ";w%(1) 

PRINT "Rauschfrequenz : ";w%(2) 

PRINT "Hüllkurvendauer : ";w%(3) 

PRINT "Rausch an/aus : ";w%(4) 

PRINT AT(1,23); 

PRINT » Fl F2 F3 F4 

PRINT " - Form + - Freq. + 

RETURN 


F5 F6 
- Dauer + 


aus R. an 


#» 

+ RET DEL» 


F9 F10» 


Das Programm PIANO auf der Diskette zum Buch ist etwas umfang¬ 
reicher, was die Bildschirmausgabe angeht. Hier ein kleiner Vorgeschmack: 



Nyilk«rveiif»r* : 4 

Rauschfrequenz J 4 

HUI lkurvendtuer : 48N 

Rausch an/aus : • 


Fl F2 fl F4 F5 fi fl FE FE F1E 
- Fom ♦ - Freq. ♦ - Dauer ♦ aus R. an - 
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Atari ST ASCII-Tabelle 


— 

0 

■ 

ia 

e 

Bl 

v 96 

C 128 

TW 

TW 

5 224 

0 

1 

f! 

Ej 

A 

m 

a 97 

U 129 

i 161 

0 193 

8 225 

0 

2 

" 

34 

B 

m 

b 98 

riHl 

6 162 

X 194 


0 

3 


EJ 

C 

67 

t 99 

FTP! 

8 163 

1 195 


0 

4 


P 

D 

68 

d 188 

1 132 

8 164 

i 196 

E 

0 

5 


n 

E 

69 

e 181 


8 165 

1 197 

ö 229 

1 

6 

3 

38 

F 

78 

f 182 

4 134 

« 166 

n 198 

u 238 

X 

7 

1 

39 

6 

71 

9 183 


9 167 

1 199 

r 231 

✓ 

8 

( 

48 

H 

72 

h 184 

8 136 

L 168 

1 288 

$ 232 

0 

9 

) 

41 

I 

73 

i 185 

8 137 

r 169 

n 281 

0 233 

» 

ie 

* 

42 

J 

74 

J 186 


- 178 

0 282 

fi 234 


li 

♦ 

43 

K 

75 

k 187 

Y 139 

* 171 

' 283 

6 235 


12 

$ 

44 

L 

76 

1 188 

t 148 

k 172 

3 284 

$ 236 

\ 

13 


45 

n 

77 

n 189 

1 141 

1 173 

f 285 

« 237 

A 

14 

$ 

46 

N 

78 

n 118 

8 142 

« 174 

D 286 

C 238 

N 

15 

/ 

47 

8 

79 

o 111 

8 143 

» 175 

1 287 

n 239 

C 

16 

8 

48 

p 

88 

p 112 

£ 144 

1 176 

0 288 

■ 248 

1 

17 

1 

49 

0 

81 

q 113 

■ 145 

8 177 

■ 289 

t 241 

i 

18 

2 

58 

R 

82 

r 114 

f 146 

8178 

■ 218 

2 242 

3 

19 

3 

51 

S 

83 

s 115 

8 147 

• 179 

1211 

i 243 

s 

28 

4 

52 

T 

84 

1116 

tt 148 

■ 188 

7 212 

f 244 

S 

21 

5 

53 

U 

85 

u 117 

ö 149 

f 181 

1 213 

J 245 

6 

22 

6 

54 

V 

86 

v 118 

lEJ 

ft 182 

■ 214 

♦ 246 

n 

a 

23 

7 

55 

U 

87 

M 119 

LEJ 

ft 183 

n 215 

*247 

8 

24 

8 

56 

X 

88 

x 128 

y 152 

5 184 

1 216 

° 248 

9 

25 

9 

57 

V 

89 

y 121 

ti 153 

" 185 

1 217 

• 249 

3 

26 

• 

• 

S8 

Z 

98 

z 122 

U 154 

' 186 

■ 218 

. 258 


27 

a 

4 

59 

I 

91 

< 123 

C 155 

T 187 

1 219 

< 251 

C 

28 


u 

\ 

92 

1 124 

L 156 


1 228 

* 252 


29 


ra 

J 

93 

> 125 

¥ 157 

jt 

< 221 

* 253 

J 

38 



A 

94 

- 126 

8 158 

1 J 

a 222 

’ 254 

0 

31 

fl 

H 

_ 

95 

a 127 

f 159 

*191 

“223 

" 255 
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Programmverzeichnis (nach Seitenzahlen) 


Abschnitt 2: 
VERBRAU 107 168 

Abschnitt 3.1: 
PREIS 1 171 
PREIS2 173 
KALKULAT 175 
SKONTOZ 177 
SKONTOE 180 
DREIFALL 182 
MWST 185 
LOGIK 1 188 
LOGIK2 190 
KAPITAL1 191 
KAPITAL2 194 
ZUFALL 197 
ZEITTEST 200 
FAHRTENB 202 
RATENSPA 206 
UNTERPROG1 209 
UNTERPROG2 211 
UNTERPROG3 212 
FUNK1 216 
FUNK2 218 

Abschnitt 3.2: 
TEXT0 221 
TEXT1 223 
TEXT2 225 
TEXT4 227 
TEXT5 228 
TEXT6 228 
TEXT7 229 
TEXT8 230 
TEXT9 231 
DATUMINT 232 
DATUMPRU 232 
ETIKETT 234 
WILDCARD 236 
BLOCKSAT 237 
GEHEIM 239 


Abschnitt 3.3: 
LAGREGAL 244 
UMKEHRZA 247 
VOKABELD 252 
STACK 254 
ABTABELL 256 

Abschnitt 3.4: 
AUSGABE 1 261 
EINGABE 1 264 
BILDMASK 266 
RUNDZAHL 270 
DEMO_USI 272 
MENUE 276 
MENUE2 279 
DRUCKSTE 284 

Abschnitt 3.5: 
SUCHSE M 289 
SUCHBI_M 293 
SORTNU_M 300 
SORTZEIG 309 
SORTSTRI 311 
MISCHDAT 314 
GRUPPDAT 316 

Abschnitt 3.6: 
SEQUEN_M 325 

Abschnitt 3.7: 
DIREKT M 340 
DIREKT A 341 
DIREKT_F 342 
DIREKT_L 344 
DIREKT S 346 

Abschnitt 3.8: 
INDSEQJS 354 
INDSEQ_L 356 
INDSEQ_T 357 


Abschnitt 3.9 
LILIST_M 366 

Abschnitt 3.10: 
BIBAUM_M 381 

Abschnitt 3.11: 
kein Programm 

Abschnitt 3.12: 
FEHLER 392 
HEIZUNG 395 

Abschnitt 3.13: 
ZEICHNE 409 
DIAGRAMM 418 
SCHWEIF 424 
TURTLE 427 

Abschnitt 3.14: 
ARRAYDC 434 
ZEIGER 438 
QUICKMEM 443 
QUICKDSK 447 
PIANO 453 
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Programmverzeichnis (nach Programmnamen) 


ABTABELL 256 
ARRAYDC 434 
AUSGABE 1 261 
BIBAUM_M 381 
BILDMASK 266 
BLOCKSAT 237 
DATUMINT 232 
DATUMPRU 232 
DEMO_USI 272 
DIAGRAMM 418 
DIREKTA 341 
DIREKT_F 342 
DIREKT L 344 
DIREKT M 340 
DIREKT_S 346 
DREIFALL 182 
DRUCKSTE 284 
EINGABE 1 264 
ETIKETT 234 
FAHRTENB 202 
FEHLER 392 
FUNK1 216 
FUNK2 218 
GEHEIM 239 
GRUPPDAT 316 
HEIZUNG 395 
INDSEQ_L 356 
INDSEQ S 354 
INDSEQ T 357 
KALKULAT 175 
KAPITAL 1 191 
KAPITAL2 194 
LAGREGAL 244 

LILIST_M 366 

LOGIK 1 188 
LOGIK2 190 
MENUE 276 
MENUE2 279 
MISCHDAT 314 
MWST 185 
PIANO 453 
PREIS 1 171 


PREIS2 173 
QUICKDSK 447 
QUICKMEM 443 
RATENSPA 206 
RUNDZAHL 270 
SCHWEIF 424 
SEQUEN M 325 
SKONTOE 180 
SKONTOZ 177 
SORTNU_M 300 
SORTSTRI 311 
SORTZEIG 309 
STACK 254 

SUCHBI_M 293 

SUCHSE_M 289 
TEXT0 221 
TEXT1 223 
TEXT2 225 
TEXT4 227 
TEXT5 228 
TEXT6 228 
TEXT7 229 
TEXT8 230 
TEXT9 231 
TURTLE 427 
UMKEHRZA 247 
UNTERPROG1 209 
UNTERPROG2 211 
UNTERPROG3 212 
VERBRAU 107 168 
VOKABELD 252 
WILDCARD 236 
ZEICHNE 409 
ZEIGER 438 
ZEITTEST 200 
ZUFALL 197 
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Sachwortverzeichnis 


! (Boolean) 242 
" " (Text, String) 220 

# (Formatierung) 272 

# (Real) 126 

$ (Formatierung) 272 
$ (String) 220 242 
% (Integer) 242 
& (Formatierung) 272 
& (Word) 126 242 
&H (Hex) 125 
&0 (Oktal) 125 
&X (Dual) 125 
’ (für REM) 173 
’ (Trennung) 268 

* (Formatierung) 272 

* (Zeiger) 128 437 

, (Formatierung) 272 
, (Trennung) 269 
; (Trennung) 268 
@ (Unterprogramm) 211 218 
\ \ (Formatierung) 272 
_ (Unterstrich) 229 264 
{ } (Adresse) 128 
| (Byte) 126 242 440 
~ (Tilde) 224 

ABS() 146 
ABSOLUTE 129 
ACH AR 129 
ACLIP 129 
ACOS() 146 
ADD 129 
ADD() 146 
ADDRIN() 146 
ADDROUT() 146 
Adresse 42 433 
Adreßbus 91 
Adreßrechnung 347 
AFTER 129 395 
Aktueller Parameter 226 
ALERT 129 283 
Algol 63 


Algorithmen (Datei) 54 
Algorithmischer Entwurf 36 
Algorithmus 54 
ALINE 130 
Alternativstruktur 38 
ALU 10 89 

Analyse (Programm) 34 
AND 189 
AND() 146 
Animation 94 
Anklicken (Maus) 78 102 
Anlegen (Datei) 53 
Anweisungen 128 

Anweisungsteil (Programm) 45 172 

Anwenderprogramm 28 79 

APL 63 

APOLY 130 

Arbeitsspeicher 11 

ARECT 130 

Arith. Operator 165 

Array (Speicherung) 433 

Array 31 241 

ARRAYFILL 130 248 

ARRPTR0 146 434 

ASC() 146 240 

ASCII 12 229 455 

ASIN() 146 

Assembler 61 63 82 

AT 262 

Atari ST 100 

ATEXT 130 

ATN() 147 

Aufgabengliederung 70 
Auflösung (Grafik) 398 
Aufzählungstyp 34 
Aufzeichnung 16 
Ausführung (Programm) 108 168 
Ausgabe 260 
Ausgabegerät 5 
Auswahlstruktur 37 177 
Auswählen (Datei) 53 
Automat 10 
Ändern (Datei) 53 
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B (Byte) 14 
Back-Up 15 19 
Backspace 283 
Balkendiagramm 421 
BASEPAGE() 147 
BASIC 63 82 97 
BASIC-Codierung 107 
Baud 15 

Baustein (Software) 42 
BCHG() 147 441 
BCLR() 147 
Bedingte Verzeigung 37 
Befehle (GFA-Basic) 123 
Befehlsbus 91 

Benutzerdefinierter Typ 33 
Benutzeroberfläche 78 80 
Bestandsdaten 26 
Betriebssystem 59 82 448 
Bewegen (Datei) 53 
Bewegungsdaten 26 
BGET 159 446 
Bildschirmmaske 266 
Bildschirmsteuerung 261 398 
BIN$() 147 439 
Binärbaum 33 370 
Binäres Suchen 292 
Binärzeichen 11 
BIOS 65 448 
BIOS() 147 
Bit 10 47 
Bit-Operation 438 
BITBLT 130 
Bitmuster 11 

Bitparallele Aufzeichnung 14 
Bitserielle Aufzeichnung 14 
BLKEND 115 
BLKSTA 115 
BLOAD 159 445 
BLOCK 115 
Block 15 

Block-Kommando 118 
Blockdiagramm 69 
Blockorientierte Sprache 77 
BMOYE 130 443 
BOOLEAN 30 125 
Boolesche Variable 188 


Bottom-Up 76 
BOUNDARY 130 
BOX 130 
Bps 15 

BPUT 159 446 
Brainware 3 
Branchenlösung 86 
BREAK 394 
BSAVE 159 445 
BSET() 147 438 
BTST() 147 439 
BTX-Netz 25 
Bubble Memory 8 
Bubble Sort 303 
Bus 90 

BYTE (Typ) 126 130 147 
Byte 12 

C (Programmiersprache) 63 

C: 148 

CALL 131 

CAP 83 

CARD 131 

CARD() 14 

Cartridge-Tape-Streamer 19 
CASE 143 186 
CD-ROM 6 

Centronics-Schnittstelle 18 

CFLOAT() 148 

CHAIN 159 338 

Char 30 

Character 47 

Chart 82 

CHDIR 159 

CHDRIVE 159 

Chip 3 88 

CHR$() 142 148 229 
CHR$( 13) 283 
CINTO 148 
CIRCLE 131 
CLEAR 131 
CLEARW 131 
CLIP 131 404 
CLOSE 160 
CLOSEW 131 
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CLR 131 
CLS 131 262 
CMC-7-Schrift 8 
COBOL 63 
Codasyl-Netzwerk 57 
Codierung (Programm) 168 
COLOR 132 400 
COM (Ausgabe) 5 
Compiler 61 
Computerkern 59 
CONT 132 
CONTRL() 148 
COSO 148 417 
COSQ() 148 
CP/M 65 66 
CPU 2 9 

CRSCOL() 148 263 
CSRLINO 148 263 
Cursor 117 263 
CVD, CVI, CVL, CVS 160 

DATA 132 225 
DATE$() 149 
Datei 27 46 

Datei-Programmpaket 82 
Dateipuffer 333 
Dateiverarbeitung 318 
Dateiverkettung 55 
Dateiverwaltungssystem 84 
Daten (in BASIC) 124 
Daten 26 43 
Datenbank (Tool) 82 
Datenbank 46 56 386 
Datenbank-Maschine 59 
Datenblock 433 
Datenbus 90 91 
Datendatei 353 
Datenerfassung 6 20 
Datenfeld 47 
Datenflußplan 69 70 
Datenkanal 323 
Datenmanager 84 
Datensammelsystem 21 
Datensatz 47 
Datensicherung 15 19 


Datenstrukturen 27 32 127 
Datenträger 2 
Datentypen 27 30 
Datenunabhängigkeit 57 
Daten verkehr 55 321 339 
Datex-Netz 21 
dBASE 58 82 
DBMS 56 
DDL 56 
Deadlock 81 
Debugging 120 
DEF... 127 132 
DEFFILL 132 403 
DEFFN 132 215 
DEFLINE 132 415 
DEFLIST 119 133 
DEFMARK 133 
DEFMOUSE 133 
DEFNUM 133 271 
DEFTEXT 133 
DEG() 149 
DEL 132 196 
DELAY 133 
DELETE 134 249 
Deskriptor-Block 433 
Desktop 78 100 
Desktop-Publishing 83 
Dezentrale Erfassung 21 
DFREEO 149 
Dialogbox 79 
Dialoggerät 5 
Dialogprotokoll 36 108 
Dienstprogramm 28 
DIM 133 248 
DIM?() 149 249 
Dimension 243 
DIN 66001 70 
DIN 66261 73 
DIR 160 
DIR$ 160 
Direkt-Modus 120 
Direktzugriff 49 
Direktzugriff-Datei 52 331 
Diskette 7 103 445 
DIV 133 
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DIV() 149 

Divisions-Rest-Verfahren 348 
DO-LOOP 134 195 198 
Dokument 79 
Dokumentation 75 
DOS 65 
DOUBLE 134 
DOUBLEO 149 
DPOKE 134 
DRAW 134 408 426 
Drucker 17 
Druckersteuerung 283 
Druckmaske 272 
Dual-System 10 
DUMP 121 134 

Dynamische Dimensionierung 249 
Dynamischer Datentyp 32 381 
Dynamischer RAM 94 

EAN-Code 8 
EBCDI-Code 12 
EDIT 134 
Editor 28 83 114 
EEPROM 95 
Eingabe 260 
Eingabegerät 5 
Einseitige Auswahl 38 
ELAN 63 
ELLIPSE 134 408 
END 135 

Entwurfsprache 35 69 
EOF 55 
EOF() 160 
EPROM 95 
EQV 189 
EQV() 149 
ERASE 135 248 
Ereignis 392 
ERR$() 149 
ERR() 149 
ERROR 135 392 
Escape-Sequenz 284 
EVA-Prinzip 9 171 
EVEN() 149 
Event Trapping 392 


EVERY 135 395 
EXEC 135 
EXIST 160 
EXIT IF 195 
EXP() 149 

Externer Datenbus 91 
Externer Speicher 5 
Fallabfrage 184 
False 188 
Farbe 399 
FATAL() 149 
Fehlerbehandlung 392 
Fehlersuche 120 
Feld 242 
Fenster 79 102 
Festplatte 7 
Festwert-Speicher 88 
FGETDTA() 160 
FIELD 161 333 
FILE (Datentyp) 32 
File 27 

File Handling 46 

FILE SELECT 135 

FILES 161 

FILL 136 404 

FIND 116 

Firmware 2 88 

FIX() 149 

FLOAT 136 

FLOAT() 150 

Flüchtiger Speicher 94 

FN... 217 

Folgestruktur 35 

FOR 136 199 

FORM SELECT 136 265 

Formaler Parameter 216 

Formatierte Daten 26 

Formatierung (Ausgabe) 83 141 

Formatierung 15 103 

FORTH 63 

FORTRAN 63 

FRAC() 150 

Frame 79 

Framework 82 

FREE() 150 
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Frequenz 471 
FSETDTA() 161 
FSFIRSTO 161 
FSNEXT() 161 
FULLF 136 
FUNCTION 136 217 
Funktion 41 214 

Gap 15 
GB() 150 
GCONTRLO 150 
GDOS?() 150 
GEM 78 98 448 
GEMDOS 449 
GEMDOSO 150 
GEMSYSO 150 
GET 161 332 422 
GFA-Basic 3.0 98 
GINTINO 150 
GINTOUT() 150 
GOSUB 136 208 
GOTO 136 

Grafik-Programmpaket 84 
Grafikverarbeitung 397 
GRAPHMODE 137 407 
Großcomputer 22 
Gruppen Wechsel 315 
Gruppieren 315 
Hard-Disk 7 
HARDCOPY 137 
Hardware 2 
Hashing 348 
Hauptspeicher 42 
HEX$() 150 
Hexadezimal 13 125 
HIDEM 137 
Hierarchisches Menü 77 
HLINE 137 
Host Computer 59 
HTAB 137 
Hüllkurve 452 


IEC-Bus 18 

IF 137 179 

IF EXIST 340 

IMP() 151 

INC 137 196 

Index (Array) 243 

Index-sequentielle Datei 49 350 

Indexdatei 351 

Indexloch 16 

Individual-Software 82 

Indizierte Speicherung 52 

Information 11 

Information Retrieval 59 

INFOW 137 

Inhouse Netz 24 

INKEYS 150 

INLINE 137 

INP 161 224 

INP?() 151 

INPUT 137 

INPUT# 161 334 

INPUT$() 161 229 264 

INSERT 137 

INSTR() 151 221 

INT() 151 

Integer 30 125 

Integrierte DV 85 

Integrierter Schaltkreis 88 

Intel 93 

Interface 18 

Interner Bus 91 

Interpreter 61 

INTIN() 151 

INTOUTO 151 

ISDN-Netz 25 

Iteration 39 

Jackson-Methode 76 
Joker-Zeichen 235 

Kanal 323 
Kassette 14 
KB 14 

KEYDEF 138 
KEYGET 138 


I/O-Baustein 89 
IC 88 
Icon 79 
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KEYLOCK 138 
KEYPAD 138 
KEYPRESS 138 
KEYTEST 138 
KI 4 

KILL 161 341 
Klarschrift(-beleg) 17 
Klassifizieren (Datei) 54 
Kluft 15 
Knoten 371 

Kommandosteuerung 80 
Kompatibilität 23 
Konfiguration 21 
Konstante 43 124 170 
Koordinaten 398 
Kopieren (Datei) 53 
Kosten 3 

Künstliche Intelligenz 4 

L~() 151 
LAN 25 

Laserdrucker 17 83 
LEFT$() 151 
LEN() 151 
Lesen (Datei) 53 
LET 138 172 
LIFO-Methode 253 
LINE 138 
LINE INPUT 138 
LINE INPUT# 161 
Lineares Programm 35 
Linked List 360 
Lisp 63 
LIST 161 
Liste 31 360 
Listengenerator 78 
Listenoperationen 368 
Listing (Programm) 107 
LLIST 115 138 
LOAD 115 161 
LOC() 161 
LOCAL 138 214 
LOCATE 138 
LOF() 161 344 
LOGO 152 


LOG 19() 152 
Logging 19 
Logik-Baustein 89 
Logische Operatoren 166 
Logische Ordnung 51 364 
Logo 64 

Lokale Variable 212 
Lokales Netz 24 
LONG 138 431 
Lotus 1-2-3 82 
LPEEK 434 
LPOKE 138 
LPOS() 152 
LPRINT 138 284 
LSET 161 334 

Magnetband 7 15 
Magnetplatte 7 
Magnetschriftbeleg 7 
Mainframe 23 
MALLOCO 152 
Markierungsbeleg 7 
Maschinenorientierte Sprache 61 
Maschinenprogramm 82 
Maske (Bildschirm) 266 
Maske (PRINT USING) 272 
Maskengenerator 78 
Master 24 
Matrix 31 242 
Matrixdrucker 17 
Maus 78 100 422 
MAX() 152 413 
MB 14 
MENU 139 
MENU() 152 282 
Menüsteuerung 80 318 
Menütechnik 76 274 
Menware 3 
MERGE 115 
MFREE() 152 
MID$() 139 223 
Mikrocomputer (Aufbau) 89 
Mikroprozessor 90 
Mikrotechnologie 3 
MIN() 152 
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Mips 92 

Mischen (Array) 313 
Mischen (Datei) 53 
Mixed Hardware 18 
MKD$() 162 333 
MKDIR 162 
MKI$() 162 333 
MKL$() 162 333 
MKS$() 162 333 
Mobile Datenerfassung 21 
MOD() 152 
MODE 139 
Modula-2 64 
Modularisierung 76 
MONITOR 139 
Motorola 93 
MOUSE 406 422 
MOUSE() 153 
MS-DOS 65 66 
MSHRINK() 153 
MUL 139 
MUL() 153 
Multi-Tasking 25 
Multi-Using 25 
Multiplan 82 

Nachfolger 371 
NAME 162 
Nanosekunde 4 
Netzwerk 24 
Neumann, John v. 10 
NEW 115 139 
Normierung 76 
NOT 189 

Objektprogramm 62 
OCR-Schrift 8 
OCT$() 153 
ODD() 153 
ODER 11 
OEM 18 
Off-line 21 
Oktale Konstante 125 
ON BREAK 139 394 
ON ERROR 139 342 


ON MENU 140 282 
ON-GOSUB 139 276 
On-line 6 21 
OPEN 162 323 
OPENW 140 282 
Operation (logisch) 11 
Operatoren 164 
OPTION BASE 248 
Optische Platte 8 
OR 189 
OR() 153 
Ordnung 364 
Ordnungsbegriff 349 
Ordnungsdaten 26 
Orgware 3 
OUT 163 
OUT?() 153 
Overlay 77 338 
öffnen (Datei) 162 

P-Code 66 
Pagemaker 83 
PAP 69 72 
Papierkorb 79 
Parallele Arrays 250 
Parameter 211 
Pascal 64 82 
PAUSE 140 263 
PBOX 141 
PCIRCLE 141 
PEEK() 153 430 
PELLIPSE 141 
Peripherie 5 90 
Permanent-Speicher 94 
Personalcomputer 23 
Physische Ordnung 51 364 
PI() 154 
Piktogramm 79 
Pilot 64 

Pivotelement 307 
PLOT 141 406 
POINT() 154 408 
Pointer 308 
POKE 141 432 
POLY 141 416 
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Pop-Up-Menü 77 

Portablität 67 

POS(n) 154 

POS-System 20 

PostScript 83 

PRBOX 141 

PRED() 154 

PRESET 431 

PRINT 141 163 268 

PRINT AT 262 

PRINT USING 141 272 

PRINT# 334 

Problemanalyse 68 

Problemorientierte Sprache 61 

PROCEDURE 141 208 

Program File 46 

Programm (Bestandteile) 45 

Programm 2 27 

Programmablauf plan 69 72 

Programmentwicklung 68 174 

Programmgenerator 78 

Programmgliederung 172 

Programmiersprachen 62 82 

Programmiertechnik 75 

Programmierung (Stufen) 75 

Programmlauf 108 

Programmstrukturen 29 167 

Prolog 64 

PROM 95 

Prozedur 41 141 

Prozessor 90 

PSA VE 163 

PSET 141 

Pseudocode 36 

PTSIN() 154 

PTSOUTO 154 

PTST() 154 

Pull-Down-Menü 79 

Push (Stack) 253 

PUT 141 163 347 

QSORT 142 
Quellcode 61 
Quellenprogramm 61 
Query-Language 57 


Quicksort 306 
QUIT 115 142 

RAD() 154 
RAM 14 42 89 
RAND() 154 
RANDOM() 154 
Random-File 52 
RANDOMIZE 142 
RBOX 142 

RC_INTERSELECT() 154 
RCALL 142 
READ 142 
READ-DATA 275 
Real 30 125 
RECALL 163 
Rechnen (Prinzip) 11 
RECORD 163 
Record 31 
Redundanz 57 
Refresh (RAM) 94 
Register 89 
Rekursion 33 306 375 
Relationale Datenbank 58 
Relative Datei 52 
RELSEEK 163 
REM 142 171 
RENAME 163 
REPEAT-UNTIL 142 194 
Repetition 39 
REPLACE 116 
RESERVE 142 
Reserviertes Wort 126 
RESTORE 142 275 
RESUME 142 392 
RETURN 143 208 
RIGHT$() 155 227 
RMDIR 163 
RND() 155 196 
ROL() 155 
ROM 3 14 89 
ROM-Modul 86 
Rotierfunktion 440 
ROUND() 155 
RSET 1631 
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RUN 116 143 
Runden 270 

SAVE 115 164 
Scanner 8 20 
Schachtelung 41 205 256 
Schiebefunktion 440 
Schleife 38 191 
Schnittstelle (Tool) 84 
Schnittstelle 18 
Schreiben (Datei) 53 
Schrittplan 69 

Schrittweise Verfeinerung 76 
Screen Editing 81 
Scrolling 81 
SEEK 164 
Sektor 15 
SELECT 143 186 
Selektion 38 
Sequentiell 288 
Sequentielle Datei 52 318 
Sequentieller Speicher 48 
Seriell 48 288 
Set 32 

SET MOUSE 143 
SETCOLOR 143 399 
SETTIME 143 
SGET 143 
SGN() 155 
Shell-Sort 305 
SHL() 155 441 
SHOWM 143 
SHR() 441 
Sidekick 78 
SIN() 155 417 
SINGLE 143 
SINGLEO 155 
Single-Tasking 25 
Single-Using 25 
SINQ() 156 
Softsektorierung 16 
Software 2 26 
Software-Bausteine 42 
Software-Engineering 75 
Software-Pyramide 82 


Software-Qualitätssicherung 81 

Software-Tools 82 

Sortierte Verarbeitung (Datei) 51 

Sortierverfahren 298 

SOUND 143 450 

SPACE$() 156 

SPC() 156 269 

Speicher-Baustein 89 

Speicherprogrammierung 10 

Speicherung (Variable) 430 

Speicherungsform (Datei) 48 

Spiel 86 87 

SPOKE 144 

Spooling 25 

Spread Sheet 82 

SPRITE 144 

Spur 15 

SPUT 144 

SQR() 156 

SSORT 144 

Stack 253 375 

Stammdaten 26 

Stand-alone-System 19 

Standard-Software 82 

Stapelspeicher 253 

Statische Dimensionierung 250 

Statischer Datentyp 32 

Statischer RAM 95 

Steuerprogramm 28 

STICK 144 

STICK() 156 

STOP 144 

STORE 164 

STR$() 156 

STRIG() 156 

STRING$() 156 226 

Struktogramm 36 69 73 179 

Strukturbaum 69 70 

Strukturierte Programmierung 78 

Strukturierter Entwurf 77 

SUB 144 

SUB() 156 

SUCC() 156 

Suchverfahren 288 

SWAP 144 



Sachwortverzeichnis 


467 


SWAP() 156 
SYSTEM 144 
System-Konfiguration 21 
System-Software 59 
Systemprogramm 28 

TAB() 157 269 

Tabelle 242 

Tabellenkalkulation 82 

Takt 92 

TAN() 157 

Teachware 3 

TEST 116 

TEXT 145 414 

Textverarbeitung (Paket) 82 

Thermodrucker 17 

TIME$() 157 

TIMERO 157 200 

TITLE W 145 

Tonerzeugung 450 

Tool 28 82 

Top-Down-Entwurf 76 78 
TOPW 145 
Touch 164 
TRACES 157 
Trace-Lauf 122 
TRIM$() 157 229 
TRON 121 145 
True 188 

TRUNC() 157 270 
Turbo Pascal 64 
Turn-Key-System 81 
TXT 116 

Typbezeichnung 126 
TYPE 157 
Typenraddrucker 17 

UCSD 65 67 
UND (logisch) 11 
UNIX 65 67 
Unterbereichstyp 34 
Unterbrechung 391 
Unterprogrammtechnik 76 208 
UPPER$() 157 
User 25 


Überläufer (Datei) 348 
Übersetzerprogramm 29 61 

V: 157 

VAL() 157 232 
VAL?() 158 
VAR 212 

Variable (Speicher) 437 
Variable 43 109 126 170 
Variable (Vereinbarung) 44 
Variablenliste 69 175 
VARPTR() 158 430 
VDIBASE 158 
VDISYS 158 
Vektor 31 242 
Verarbeitung (Datei) 47 
Verbund 31 

Verdichten (Datei) 54 315 
Vereinbarung 44 
Vereinbarungsteil 45 172 
Verfeinerung 70 
Vergleichsoperator 165 
Verkettete Datei 360 
Verkettete Speicherung 51 386 
Verzweigung 177 
VOID 145 224 
Vorgänger 371 
VSETCOLOR 145 401 
VSYNC 145 
VTAB 145 

W_HAND() 158 
Wahrheitstafel 188 
WA VE 145 451 
Wechselplatte 7 
Werkzeug (Tool) 28 82 
Wertzuweisung 172 
WHILE-WEND 145 192 
Wiederholungsstruktur 38 191 
Wildcard 255 
Windows 78 
WINDTAB() 158 
Word 82 126 
WORD() 158 
WORD__OUT() 158 
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Wortbreite 90 
WRITE 164 334 
Wurzel 372 

XBIN$() 158 
XBIOS 448 
XOR 189 
XOR() 158 

Z80 92 

Zählerschleife 199 


Zeichen 47 

Zeiger (VARPTR) 436 
Zeiger 33 362 
Zeiger-Sortieren 308 
Zeigertyp 34 
Zeigervariable 374 
Zufallszahl 196 
Zugriffsart (Datei) 47 
Zuse 3 

Zweiseitige Auswahl 37 
Zylinder 15 



